}
require 'test.pl';
-plan( tests => 12 );
+plan( tests => 15 );
@oops = @ops = <op/*>;
map { $files{lc($_)}++ } <[.op]*>;
map { s/;.*$//; delete $files{lc($_)}; } split /[\n]/, `directory/noheading/notrailing/versions=1 [.op]`,
}
-elsif ($^O eq 'MacOS') {
- @oops = @ops = <:op:*>;
- map { $files{$_}++ } <:op:*>;
- map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`;
-}
else {
map { $files{$_}++ } <op/*>;
map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
cmp_ok($/,'eq',"\n",'sane input record separator');
$not = '';
-if ($^O eq 'MacOS') {
- while (<jskdfjskdfj* :op:* jskdjfjkosvk*>) {
- $not = "not " unless $_ eq shift @ops;
- $not = "not at all " if $/ eq "\0";
- }
-} else {
- while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
- $not = "not " unless $_ eq shift @ops;
- $not = "not at all " if $/ eq "\0";
- }
+while (<jskdfjskdfj* op/* jskdjfjkosvk*>) {
+ $not = "not " unless $_ eq shift @ops;
+ $not = "not at all " if $/ eq "\0";
}
ok(!$not,"glob amid garbage [$not]");
cmp_ok($/,'eq',"\n",'input record separator still sane');
-$_ = $^O eq 'MacOS' ? ":op:*" : "op/*";
+$_ = "op/*";
@glops = glob $_;
cmp_ok("@glops",'eq',"@oops",'glob operator 1');
}
cmp_ok(scalar(@oops),'>',0,'glob globbed something');
+
+*aieee = 4;
+pass('Can assign integers to typeglobs');
+*aieee = 3.14;
+pass('Can assign floats to typeglobs');
+*aieee = 'pi';
+pass('Can assign strings to typeglobs');