theta/test/Test.hs

{-# LANGUAGE QuasiQuotes #-}

module Main
  (
  main
  ) where

import qualified Test.Packets.Icmp
import qualified Test.Packets.L3
import qualified Test.Packets.MacAddress
import           Test.Tasty


main = defaultMain tests

tests :: TestTree
tests = testGroup "Tests"
  [
    Test.Packets.MacAddress.tests
  , Test.Packets.L3.tests
  {-, Test.Packets.Icmp.tests -}]
Mac & Ip parsing and putting 1 year ago			`{-# LANGUAGE QuasiQuotes #-}`
Add MacAddress 2 years ago
			`module Main`
			`(`
			`main`
			`) where`

Move Icmp to corresponding module 2 years ago			`import qualified Test.Packets.Icmp`
Mac & Ip parsing and putting 1 year ago			`import qualified Test.Packets.L3`
Add MacAddress 2 years ago			`import qualified Test.Packets.MacAddress`
			`import Test.Tasty`

Mac & Ip parsing and putting 1 year ago
Add MacAddress 2 years ago			`main = defaultMain tests`

			`tests :: TestTree`
Mac & Ip parsing and putting 1 year ago			`tests = testGroup "Tests"`
			`[`
Icmp echo serialize 2 years ago			`Test.Packets.MacAddress.tests`
Mac & Ip parsing and putting 1 year ago			`, Test.Packets.L3.tests`
			`{-, Test.Packets.Icmp.tests -}]`
Add MacAddress 2 years ago