Ticket #1616: PCA-patch-007.patch

File PCA-patch-007.patch, 1.0 KB (added by Paul C. Anagnostopoulos, 4 years ago)
  • t/op/integer.t

     
    1616 
    1717=cut 
    1818 
    19 .const int TESTS = 152 
     19.const int TESTS = 153 
    2020 
    2121.sub 'test' :main 
    2222    .include 'test_more.pir' 
     
    4848    test_sub_i_i() 
    4949    test_set_n() 
    5050    test_neg() 
     51    test_negate_max_integer() 
    5152    test_mul_i_i() 
    5253    test_null() 
    5354    test_div_i_i_by_zero() 
     
    745746    is($I0, -3, 'neg_i') 
    746747.end 
    747748 
     749# Test to ensure that the negative of the maximum integer is equal to the 
     750# minimum integer + 1. This should be true because we are assuming a 
     751# two's-complement machine. 
     752 
     753.loadlib 'sys_ops' 
     754.include 'sysinfo.pasm' 
     755 
     756.sub test_negate_max_integer 
     757    .local int max 
     758    .local int min 
     759    max = sysinfo .SYSINFO_PARROT_INTMAX 
     760    neg max 
     761    min = sysinfo .SYSINFO_PARROT_INTMIN 
     762    inc min 
     763    is(max, min) 
     764.end 
     765 
    748766.sub 'test_mul_i_i' 
    749767    $I0 = 3 
    750768    $I1 = 4