File tree Expand file tree Collapse file tree 1 file changed +13
-0
lines changed
typed-racket-test/unit-tests Expand file tree Collapse file tree 1 file changed +13
-0
lines changed Original file line number Diff line number Diff line change 1329
1329
(define: x : Any 7 )
1330
1330
(if (box? x) (unbox x) (+ 1 )))
1331
1331
Univ]
1332
+ [tc-e (if (zero? (random 2 )) (box "hello " ) (box 'hello ))
1333
+ (-box -Bottom (t:Un -String -Symbol))]
1334
+ [tc-e (unbox (if (zero? (random 2 )) (box "hello " ) (box 'hello )))
1335
+ (t:Un -String -Symbol)]
1336
+ [tc-e (if (zero? (random 2 )) ((inst box Natural) 3 ) ((inst box Integer) -5 ))
1337
+ (-box -Nat -Int)]
1338
+ [tc-e (unbox (if (zero? (random 2 )) ((inst box Natural) 3 ) ((inst box Integer) -5 )))
1339
+ -Int]
1340
+ [tc-e (set-box!
1341
+ (if (zero? (random 2 )) ((inst box Natural) 3 ) ((inst box Integer) -5 ))
1342
+ 1 )
1343
+ -Void]
1344
+ [tc-err (set-box! (if (zero? (random 2 )) ((inst box Natural) 3 ) ((inst box Integer) -5 )) -1 )]
1332
1345
[tc-e (floor 1/2 ) -Nat]
1333
1346
[tc-e (ceiling 1/2 ) -PosInt]
1334
1347
[tc-e (truncate 0.5 ) -NonNegFlonum]
You can’t perform that action at this time.
0 commit comments