1 | BEGIN { $| = 1; print "1..20\n"; } |
1 | BEGIN { $| = 1; print "1..24\n"; } |
2 | |
2 | |
3 | use Types::Serialiser; |
3 | use Types::Serialiser; |
4 | |
4 | |
5 | print "ok 1\n"; |
5 | print "ok 1\n"; |
6 | |
6 | |
… | |
… | |
27 | print $dec*2 == 2 ? "" : "not ", "ok 19\n"; |
27 | print $dec*2 == 2 ? "" : "not ", "ok 19\n"; |
28 | |
28 | |
29 | $dec = Types::Serialiser::error; |
29 | $dec = Types::Serialiser::error; |
30 | print Types::Serialiser::is_error $dec ? "" : "not ", "ok 20\n"; |
30 | print Types::Serialiser::is_error $dec ? "" : "not ", "ok 20\n"; |
31 | |
31 | |
|
|
32 | print Types::Serialiser::is_true Types::Serialiser::as_bool 0 ? "not " : "", "ok 21\n"; |
|
|
33 | print Types::Serialiser::is_false Types::Serialiser::as_bool 1 ? "not " : "", "ok 22\n"; |
|
|
34 | print Types::Serialiser::is_true Types::Serialiser::as_bool 0 ? "not " : "", "ok 23\n"; |
|
|
35 | print Types::Serialiser::is_false Types::Serialiser::as_bool 1 ? "not " : "", "ok 24\n"; |