test.icl

   1 module test
   2
   3
   4 import gast
   5 import IRC
   6
   7 derive ggen IRCMessage
   8
   9 Start = Test [] pParsePrint
  10
  11 pParsePrint :: IRCMessage -> Bool
  12 pParsePrint a = toString (parseIRCMessage (toString a)) == toString a