Mercurial Mercurial > repos > isabelle / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Codegenerator_Test/Code_Test_GHC.thy
author wenzelm
Sat, 02 Apr 2016 15:06:41 +0200
changeset 62813 3e001fe6f16a
parent 61856 4b1b85f38944
child 63167 0909deb8059b
permissions -rw-r--r--
obsolete (see 1d977436c1bf);

(*  Title:      HOL/Codegenerator_Test/Code_Test_GHC.thy
    Author:     Andreas Lochbihler, ETH Zurich

Test case for test_code on GHC
*)

theory Code_Test_GHC imports "../Library/Code_Test" "../GCD" begin

test_code "(14 + 7 * -12 :: integer) = 140 div -2" in GHC

value [GHC] "14 + 7 * -12 :: integer"

test_code -- \<open>Tests for the serialisation of @{const gcd} on @{typ integer}\<close>
  "gcd 15 10 = (5 :: integer)"
  "gcd 15 (- 10) = (5 :: integer)"
  "gcd (- 10) 15 = (5 :: integer)"
  "gcd (- 10) (- 15) = (5 :: integer)"
  "gcd 0 (- 10) = (10 :: integer)"
  "gcd (- 10) 0 = (10 :: integer)"
  "gcd 0 0 = (0 :: integer)"
in GHC

end
isabelle