Ton

1
slice test1() asm """
2
  "Test" $>s
3
  PUSHSLICE
4
""";
5

6
slice test2() asm """
7
  "Hello"
8
  " "
9
  "World"
10
  $+ $+ $>s
11
  PUSHSLICE
12
""";
13

14
int sdeq (slice s1, slice s2) asm """SDEQ""";
15
int sdeq (slice s1, slice s2) asm "SDEQ" "";
16
int sdeq (slice s1, slice s2) asm "" """
17
SDEQ
18
""";
19

20
() main() {
21
  slice s = test1();
22
  throw_unless(101, sdeq(s, "Test"));
23

24
  slice s = test2();
25
  throw_unless(102, sdeq(s, "Hello World"));
26
}
27