view release on metacpan or  search on metacpan

t/ad.t  view on Meta::CPAN

#!/usr/bin/env perl

use Acme::Boolean;
use Test::More;

plan tests => 14;

ok so correct;
ok very right;
ok very very very perfect;
ok not so wrong;
ok not very errorneous;
ok not absolutely nah;
ok undoubtedly undoubted;
ok TOTALLY UNDENIABLE;
ok NOT EXACTLY LYING;
ok REALLY REALLY TRUE;
ok not ABSOLUTELY FAKE;

ok ! just NO;
ok ! just NO NO;
ok ! just just NO NO NO;