File: bool.t

package info (click to toggle)
pdl 2.005-4
  • links: PTS
  • area: main
  • in suites: potato
  • size: 4,200 kB
  • ctags: 3,301
  • sloc: perl: 14,876; ansic: 7,223; fortran: 3,417; makefile: 54; sh: 16
file content (34 lines) | stat: -rw-r--r-- 537 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
use PDL::LiteF;

$|=1;

#  PDL::Core::set_debugging(1);
kill INT,$$  if $ENV{UNDER_DEBUGGER}; # Useful for debugging.

sub ok {
	my $no = shift ;
	my $result = shift ;
	print "not " unless $result ;
	print "ok $no\n" ;
}

sub pok { print "ok $_[0]\n" }

print "1..4\n";

$a = zeroes 1,1,1;
if ($a) { print "not " }
pok 1;

$a = ones 3;
eval {print "oops\n" if $a};
print "ERROR WAS: '$@'\n";
ok(2,$@ =~ /multielement/);

unless (all $a) { print "not " };
pok 3;

$a = pdl byte, [ 0, 0, 1 ];
unless (any $a > 0) { print "not " };
pok 4;