X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=test.icl;fp=test.icl;h=f402f99f3770208ccf9110bba493a19680fe99d6;hp=0000000000000000000000000000000000000000;hb=80375cb5c33d2a86e2b5e2bd5b7d8025e8a74f1f;hpb=10c67ead1fd19a7850e9e995890564f402d92b03

diff --git a/test.icl b/test.icl
new file mode 100644
index 0000000..f402f99
--- /dev/null
+++ b/test.icl
@@ -0,0 +1,12 @@
+module test
+
+
+import gast
+import IRC
+
+derive ggen IRCMessage
+
+Start = Test [] pParsePrint
+
+pParsePrint :: IRCMessage -> Bool
+pParsePrint a = toString (parseIRCMessage (toString a)) == toString a