ref: 65f6675040a4c29da1bd387e7dc22c823a69da97
parent: 2c113e30f0892e015ae61ab8f453c9b3a073c73b
author: Ori Bernstein <ori@eigenstate.org>
date: Sat Jan 23 21:18:07 EST 2016
Add test for big type blobs.
--- /dev/null
+++ b/test/bigtyblob.myr
@@ -1,0 +1,109 @@
+use std
+
+type t = union
+ `U1
+ `U2
+ `U3
+ `U4
+ `U5
+ `U6
+ `U7
+ `U8
+ `U9
+ `U10
+ `U11
+ `U12
+ `U13
+ `U14
+ `U15
+ `U16
+ `U17
+ `U18
+ `U19
+ `U20
+ `U21
+ `U22
+ `U23
+ `U24
+ `U25
+ `U26
+ `U27
+ `U28
+ `U29
+ `U30
+ `U31
+ `U32
+ `U33
+ `U34
+ `U35
+ `U36
+ `U37
+ `U38
+ `U39
+ `U40
+ `U41
+ `U42
+ `U43
+ `U44
+ `U45
+ `U46
+ `U47
+ `U48
+ `U49
+ `U50
+ `U51
+ `U52
+ `U53
+ `U54
+ `U55
+ `U56
+ `U57
+ `U58
+ `U59
+ `U60
+ `U61
+ `U62
+ `U63
+ `U64
+ `U65
+ `U66
+ `U67
+ `U68
+ `U69
+ `U70
+ `U71
+ `U72
+ `U73
+ `U74
+ `U75
+ `U76
+ `U77
+ `U78
+ `U79
+ `U80
+ `U81
+ `U82
+ `U83
+ `U84
+ `U85
+ `U86
+ `U87
+ `U88
+ `U89
+ `U90
+ `U91
+ `U92
+ `U93
+ `U94
+ `U95
+ `U96
+ `U97
+ `U98
+ `U99
+ `U100
+;;
+
+const main = {+ std.put("{}\n", `U100)+}
+
--- a/test/tests
+++ b/test/tests
@@ -95,6 +95,7 @@
B genericmatch E 15
B genericrec E 0
B recgeneric P 'built'
+B bigtyblob P '`U100 '
# B genericchain P 'val = 123' ## BUGGERED
B genericmake P 'val = 123'
B genericuret E 42