~ubuntu-branches/debian/sid/libjson-any-perl/sid

Viewing changes to t/12-boolean.t

Tags: 1.38-1

* Import upstream version 1.38
* Mark package as autopkgtest-able.
* Declare compliance with Debian Policy 3.9.6.

added added

removed removed

"inflated '$bool'",

);

cmp_ok( $data, 'xor', !Boolean->$bool, "$bool evaluates to $bool" );

ok( ($data xor !Boolean->$bool), "$bool evaluates to $bool" );

is(

exception { $data = JSON::Any->$bool },

"JSON::Any->$bool returned a value",

);

cmp_ok( $data, 'xor', !Boolean->$bool, "JSON::Any->$bool evaluates to $bool" );

ok( ($data xor !Boolean->$bool), "JSON::Any->$bool evaluates to $bool" );

}

};

}