blob: 828ad5c08aa3f399e5e3890479728adb1080bb3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!perl -w
use strict;
use Data::Compare;
print "1..1\n";
my $test = 0;
# Scalar::Properties is the only plugin we know will be present. The plugin
# will even be present if S::P itself isn't installed.
my $plugins = Data::Compare::plugins();
my %pairs = ();
foreach my $key (keys %{$plugins}) {
foreach(@{$plugins->{$key}}) {
$pairs{"$key <-> $_"} = 1;
$pairs{"$_ <-> $key"} = 1 if($key ne $_);
}
}
print 'not ' unless($pairs{'[scalar] <-> Scalar::Properties'} && $pairs{'Scalar::Properties <-> Scalar::Properties'} && $pairs{'Scalar::Properties <-> [scalar]'});
print 'ok '.(++$test)." plugins() function\n";
|