[dbsrgits/DBIx-Class.git] / xt / extra / internals / bool.t

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;
use DBIx::Class::_Util qw( true false );
use Scalar::Util 'refaddr';

my @things = ( true, false, true, false, true, false );

for (my $i = 0; $i < $#things; $i++ ) {
  for my $j ( $i+1 .. $#things ) {
    cmp_ok
      refaddr( $things[$i] ),
        '!=',
      refaddr( $things[$j] ),
      "Boolean thingy '$i' distinct from '$j'",
    ;
  }
}

done_testing;
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;