File: scope.t

package info (click to toggle)
pdl 1%3A2.019-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 12,276 kB
  • sloc: perl: 47,799; fortran: 13,113; ansic: 9,365; sh: 41; makefile: 38; sed: 6
file content (51 lines) | stat: -rw-r--r-- 981 bytes parent folder | download | duplicates (3)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# Test if we can still do scopes ok - multiple uses etc..
# Also see that PDL loaders get the correct symbols.
use strict;
use warnings;
use Test::More tests => 10;

package A;
our $pa;
# note "A: ",%A::,"\n";
use PDL;

# $pa = zeroes 5,5;

# note "A: ",%A::,"\n";

$pa = zeroes 5,5;

# note "A: %A::\n";

# note "AC: ",(bless {},A)->can("zeroes"),"\n";
::ok((bless {},'A')->can("zeroes"));

package B;
use PDL;

#note "B: ",%B::,"\n";
#note "B: ",%B::,"\n";
# $pb = zeroes 5,5;
# note "BC: ",(bless {},B)->can("zeroes"),"\n";
::ok((bless {},'B')->can("zeroes"));

package C;
use PDL::Lite;
::ok(!((bless {},'C')->can("zeroes")));

package D;
use PDL::Lite;
::ok(!((bless {},'D')->can("zeroes")));

package E;
use PDL::LiteF;
::ok((bless {},'E')->can("zeroes"));

package F;
use PDL::LiteF;
::ok((bless {},'F')->can("zeroes"));

::ok(!((bless {},'C')->can("imag")));
::ok(!((bless {},'D')->can("imag")));
::ok(!((bless {},'E')->can("imag")));
::ok(!((bless {},'F')->can("imag")));