Add test of noNewtype

tests/Main.idr

@@ -98,7 +98,7 @@ chezTests : List String
 chezTests
    = ["chez001", "chez002", "chez003", "chez004", "chez005", "chez006",
       "chez007", "chez008", "chez009", "chez010", "chez011", "chez012",
-      "chez013", "chez014", "chez015", "chez016",
+      "chez013", "chez014", "chez015", "chez016", "chez017",
       "reg001"]
 
 ideModeTests : List String

tests/chez/chez017/Main.idr

@@ -0,0 +1,19 @@
+module Main
+
+data Foo : Type where
+  MkFoo : String -> Foo
+
+data Bar : Type where
+  [noNewtype]
+  MkBar : String -> Bar
+
+
+-- This code rely on the fact that `putStr` calls the Chez function `display`,
+-- which allows any value to be printed. This will expose the internal
+-- structure of each data type.
+main : IO ()
+main = do
+  putStr (believe_me (MkFoo "foo"))
+  putChar '\n'
+  putStr (believe_me (MkBar "bar"))
+  putChar '\n'

tests/chez/chez017/expected

@@ -0,0 +1,4 @@
+foo
+#(0 bar)
+1/1: Building Main (Main.idr)
+Main> Main> Bye for now!

tests/chez/chez017/input

@@ -0,0 +1,2 @@
+:exec main
+:q

tests/chez/chez017/run

@@ -0,0 +1,3 @@
+$1 --no-banner Main.idr < input
+
+rm -rf build