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 |
---|