Commit | Line | Data |
---|---|---|
293cb2f1 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More; | |
7 | use DBIx::Class::_Util qw( true false ); | |
8 | use Scalar::Util 'refaddr'; | |
9 | ||
10 | my @things = ( true, false, true, false, true, false ); | |
11 | ||
12 | for (my $i = 0; $i < $#things; $i++ ) { | |
13 | for my $j ( $i+1 .. $#things ) { | |
14 | cmp_ok | |
15 | refaddr( $things[$i] ), | |
16 | '!=', | |
17 | refaddr( $things[$j] ), | |
18 | "Boolean thingy '$i' distinct from '$j'", | |
19 | ; | |
20 | } | |
21 | } | |
22 | ||
23 | done_testing; |