--- a/src/HOL/Codegenerator_Test/Code_Test_GHC.thy Fri May 11 22:59:00 2018 +0200
+++ b/src/HOL/Codegenerator_Test/Code_Test_GHC.thy Sat May 12 11:24:11 2018 +0200
@@ -4,7 +4,7 @@
Test case for test_code on GHC
*)
-theory Code_Test_GHC imports "HOL-Library.Code_Test" begin
+theory Code_Test_GHC imports "HOL-Library.Code_Test" Code_Lazy_Test begin
test_code "(14 + 7 * -12 :: integer) = 140 div -2" in GHC
@@ -20,4 +20,6 @@
"gcd 0 0 = (0 :: integer)"
in GHC
+test_code "stake 10 (cycle ''ab'') = ''ababababab''" in GHC
+
end