diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/c/scattered_mapping.expect | 1 | ||||
| -rw-r--r-- | test/c/scattered_mapping.sail | 17 |
2 files changed, 18 insertions, 0 deletions
diff --git a/test/c/scattered_mapping.expect b/test/c/scattered_mapping.expect new file mode 100644 index 00000000..6a452c18 --- /dev/null +++ b/test/c/scattered_mapping.expect @@ -0,0 +1 @@ +() diff --git a/test/c/scattered_mapping.sail b/test/c/scattered_mapping.sail new file mode 100644 index 00000000..4f523e45 --- /dev/null +++ b/test/c/scattered_mapping.sail @@ -0,0 +1,17 @@ +default Order dec + +$include <prelude.sail> +$include <string.sail> +$include <mapping.sail> + +val "print_endline" : string -> unit + +val unit_str_map : unit <-> string +scattered mapping unit_str_map +val unit_str : unit -> string +function unit_str () = unit_str_map_forwards(()) +mapping clause unit_str_map = () <-> "()" + +function main () : unit -> unit = { + print_endline(unit_str()) +} |
