Ticket #1887: integer-failing.t

File integer-failing.t, 0.7 KB (added by Yuki`N, 4 years ago)

Failing tests.

Line 
1.sub 'test' :main
2    .include 'test_more.pir'
3
4    plan(3)
5
6    $P0 = new ['Integer']
7    $P1 = new ['BigInt']
8    $P0 = 24
9    $P1 = 2
10    mul $P0, $P1
11    is($P0, 48, "i_multiply Integer PMC by BigInt PMC")
12
13    $P0 = new ['Integer']
14    $P1 = new ['Complex']
15    $P0 = 2
16    $P1 = "2+4i"
17    mul $P0, $P1
18    is($P0, "4+8i", 'i_multiply Integer PMC by Complex PMC')
19   
20    $P0 = new ['Integer']
21    $P1 = new ['Float']
22    $P0 = 2
23    $P1 = 3.5
24    mul $P0, $P1
25    is($P0, 7, 'i_multiply Integer PMC by DEFAULT')
26.end
27# Output:
28#
29# 1..3
30# not ok 1 - i_multiply Integer PMC by BigInt PMC
31# Have: 24
32# Want: 48
33# not ok 2 - i_multiply Integer PMC by Complex PMC
34# Have: 2
35# Want: 4+8i
36# ok 3 - i_multiply Integer PMC by DEFAULT