diff options
Diffstat (limited to 'tests/constants')
-rw-r--r-- | tests/constants/numbers.bdl | 56 | ||||
-rw-r--r-- | tests/constants/strings.bdl | 5 |
2 files changed, 61 insertions, 0 deletions
diff --git a/tests/constants/numbers.bdl b/tests/constants/numbers.bdl new file mode 100644 index 0000000..0412af8 --- /dev/null +++ b/tests/constants/numbers.bdl | |||
@@ -0,0 +1,56 @@ | |||
1 | ; Signed integers. | ||
2 | 3 | ||
3 | ; -1 | ||
4 | 0.1 | ||
5 | 43 | ||
6 | 0 | ||
7 | -123 | ||
8 | 0x123 | ||
9 | 0xabCd | ||
10 | 0xABCDEF | ||
11 | -0x12 | ||
12 | ; a | ||
13 | ; fun | ||
14 | ; a.a | ||
15 | ; a.1 ; should err | ||
16 | ; 1.a ; should err | ||
17 | ; (print 1:s8) | ||
18 | ; (print 52:s8) | ||
19 | ; (print -1:s8) | ||
20 | ; (print 0:s8) | ||
21 | ; (print 1:s16) | ||
22 | ; (print 52:s16) | ||
23 | ; (print -1:s16) | ||
24 | ; (print 0:s16) | ||
25 | ; (print 1:s32) | ||
26 | ; (print 52:s32) | ||
27 | ; (print -1:s32) | ||
28 | ; (print 0:s32) | ||
29 | ; (print 1:s64) | ||
30 | ; (print 52:s64) | ||
31 | ; (print -1:s64) | ||
32 | ; (print 0:s64) | ||
33 | |||
34 | ; ; Unsigned integers. | ||
35 | ; (print 1:u8) | ||
36 | ; (print 52:u8) | ||
37 | ; (print -1:u8) | ||
38 | ; (print 0:u8) | ||
39 | ; (print 1:u16) | ||
40 | ; (print 52:u16) | ||
41 | ; (print -1:u16) | ||
42 | ; (print 0:u16) | ||
43 | ; (print 1:u32) | ||
44 | ; (print 52:u32) | ||
45 | ; (print -1:u32) | ||
46 | ; (print 0:u32) | ||
47 | ; (print 1:u64) | ||
48 | ; (print 52:u64) | ||
49 | ; (print -1:u64) | ||
50 | ; (print 0:u64) | ||
51 | |||
52 | ; ; Type inference. | ||
53 | ; (print 1) | ||
54 | ; (print 52) | ||
55 | ; (print -1) | ||
56 | ; (print 0) | ||
diff --git a/tests/constants/strings.bdl b/tests/constants/strings.bdl new file mode 100644 index 0000000..9b1d687 --- /dev/null +++ b/tests/constants/strings.bdl | |||
@@ -0,0 +1,5 @@ | |||
1 | (print "abc") | ||
2 | (print "test this longer string") | ||
3 | (print "escape\na\nnewline") | ||
4 | (print "escape\ttab\tcharacters") | ||
5 | (print "with type :str":str) | ||