Help for this page

Select Code to Download


  1. or download this
    >perl -MTest::More -le "cmp_ok(0.1 ** 2, '==', 0.01, 'T1'); done_testi
    +ng();"
    not ok 1 - T1
    ...
    #     expected: 0.01
    1..1
    # Looks like you failed 1 test of 1.
    
  2. or download this
    >perl -MMath::Ryu -MTest::More -le "cmp_ok(0.1 ** 2, '==', 0.01, 'T1')
    +; done_testing();"
    not ok 1 - T1
    ...
    #     expected: 0.01
    1..1
    # Looks like you failed 1 test of 1.