File: constructor.t

package info (click to toggle)
pdl 1%3A2.4.7%2Bdfsg-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 10,128 kB
  • ctags: 5,821
  • sloc: perl: 26,328; fortran: 13,113; ansic: 9,378; makefile: 71; sh: 50; sed: 6
file content (27 lines) | stat: -rw-r--r-- 652 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
 
#!/usr/bin/perl
#
# Test for bug in the pdl constructor for mixed arguments.
# Separate from core.t because the problem crashes perl
# and I'd like to keep the granularity of the core.t tests
#
use Test::More tests => 1;
use PDL::LiteF;
use PDL::Config;

SKIP: {

   skip('Known_problems bug sf.net #3011879', 1) if ($PDL::Config{SKIP_KNOWN_PROBLEMS} or exists $ENV{SKIP_KNOWN_PROBLEMS});

   # This is from sf.net bug #3011879
   $c[0][0]=pdl(0,4,2,1);
   $c[1][0]=pdl(0,0,1,1);
   $c[2][0]=pdl(0,0,0,1);
   $c[0][1]=pdl(0,0,3,1);
   $c[1][1]=pdl(0,0,2,1);
   $c[2][1]=pdl(5,1,1,1);
   $d = pdl(@c);

   diag("\$d is $d\n");

   isa_ok($d, 'PDL');
};