ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Types-Serialiser/t/51_types.t
(Generate patch)

Comparing Types-Serialiser/t/51_types.t (file contents):
Revision 1.1 by root, Mon Oct 28 15:28:44 2013 UTC vs.
Revision 1.2 by root, Tue Dec 1 01:47:20 2020 UTC

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

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines