xt/extra/internals/bool.t

   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;