Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
BHK.pm	260 B	-r--r--r--	2014-12-27 11:48
Block.pm	9 B	-r--r--r--	2014-12-27 11:48
Markers.pm	245 B	-r--r--r--	2014-12-27 11:48
Null.pm	3 B	-r--r--r--	2014-12-27 11:48
addissub.t	481 B	-r--r--r--	2014-12-27 11:48
arrayexpr.t	7.85 KB	-r--r--r--	2014-12-27 11:48
autoload.t	4.03 KB	-r--r--r--	2014-12-27 11:48
blockasexpr.t	1.46 KB	-r--r--r--	2014-12-27 11:48
blockhooks-csc.t	2.26 KB	-r--r--r--	2014-12-27 11:48
blockhooks.t	5.21 KB	-r--r--r--	2014-12-27 11:48
call.t	8.9 KB	-r--r--r--	2014-12-27 11:49
call_checker.t	4.03 KB	-r--r--r--	2014-12-27 11:49
caller.t	1.78 KB	-r--r--r--	2014-12-27 11:48
callregexec.t	2.46 KB	-r--r--r--	2014-12-27 11:49
check_warnings.t	495 B	-r--r--r--	2014-12-27 11:48
cleanup.t	1.41 KB	-r--r--r--	2014-12-27 11:48
clone-with-stack.t	1.45 KB	-r--r--r--	2015-01-10 12:06
cophh.t	280 B	-r--r--r--	2014-12-27 11:48
coplabel.t	112 B	-r--r--r--	2014-12-27 11:48
copstash.t	156 B	-r--r--r--	2014-12-27 11:48
copyhints.t	123 B	-r--r--r--	2014-12-27 11:48
customop.t	2.42 KB	-r--r--r--	2014-12-27 11:49
eval-filter.t	743 B	-r--r--r--	2014-12-27 11:48
exception.t	616 B	-r--r--r--	2014-12-27 11:48
fetch_pad_names.t	10.58 KB	-r--r--r--	2014-12-27 11:49
gotosub.t	351 B	-r--r--r--	2014-12-27 11:48
grok.t	2.07 KB	-r--r--r--	2014-12-27 11:49
gv_autoload4.t	2.01 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmeth.t	2.3 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmeth_autoload.t	3.38 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmethod_flags.t	1.86 KB	-r--r--r--	2014-12-27 11:48
gv_init.t	489 B	-r--r--r--	2014-12-27 11:48
handy.t	15.33 KB	-r--r--r--	2014-12-27 11:49
hash.t	17.07 KB	-r--r--r--	2014-12-27 11:48
keyword_multiline.t	259 B	-r--r--r--	2014-12-27 11:48
keyword_plugin.t	1.15 KB	-r--r--r--	2014-12-27 11:48
labelconst.aux	146 B	-r--r--r--	2014-12-27 11:48
labelconst.t	2.63 KB	-r--r--r--	2014-12-27 11:48
labelconst_utf8.aux	194 B	-r--r--r--	2014-12-27 11:48
lexsub.t	524 B	-r--r--r--	2014-12-27 11:48
loopblock.t	1.46 KB	-r--r--r--	2014-12-27 11:48
looprest.t	1.39 KB	-r--r--r--	2014-12-27 11:48
lvalue.t	800 B	-r--r--r--	2014-12-27 11:48
magic.t	804 B	-r--r--r--	2014-12-27 11:49
magic_chain.t	115 B	-r--r--r--	2014-12-27 11:48
mro.t	237 B	-r--r--r--	2014-12-27 11:48
multicall.t	1.32 KB	-r--r--r--	2014-12-27 11:48
my_cxt.t	1.28 KB	-r--r--r--	2014-12-27 11:48
my_exit.t	790 B	-r--r--r--	2014-12-27 11:48
newCONSTSUB.t	2.58 KB	-r--r--r--	2014-12-27 11:48
op.t	359 B	-r--r--r--	2014-12-27 11:48
op_contextualize.t	120 B	-r--r--r--	2014-12-27 11:48
op_list.t	151 B	-r--r--r--	2014-12-27 11:48
overload.t	2.21 KB	-r--r--r--	2014-12-27 11:48
pad_scalar.t	1.83 KB	-r--r--r--	2014-12-27 11:48
peep.t	1013 B	-r--r--r--	2014-12-27 11:48
pmflag.t	192 B	-r--r--r--	2014-12-27 11:48
postinc.t	800 B	-r--r--r--	2014-12-27 11:48
printf.t	1.05 KB	-r--r--r--	2014-12-27 11:49
ptr_table.t	916 B	-r--r--r--	2014-12-27 11:48
push.t	746 B	-r--r--r--	2014-12-27 11:48
refs.t	578 B	-r--r--r--	2014-12-27 11:48
rmagical.t	823 B	-r--r--r--	2014-12-27 11:48
rv2cv_op_cv.t	115 B	-r--r--r--	2014-12-27 11:48
savehints.t	123 B	-r--r--r--	2014-12-27 11:48
scopelessblock.t	1.59 KB	-r--r--r--	2014-12-27 11:48
sort.t	411 B	-r--r--r--	2014-12-27 11:48
stmtasexpr.t	893 B	-r--r--r--	2014-12-27 11:48
stmtsasexpr.t	949 B	-r--r--r--	2014-12-27 11:48
stuff_modify_bug.t	151 B	-r--r--r--	2014-12-27 11:48
stuff_svcur_bug.t	260 B	-r--r--r--	2014-12-27 11:48
subcall.t	179 B	-r--r--r--	2014-12-27 11:48
sviscow.t	229 B	-r--r--r--	2014-12-27 11:48
svpeek.t	3.16 KB	-r--r--r--	2014-12-27 11:49
svpv.t	1.01 KB	-r--r--r--	2014-12-27 11:48
svpv_magic.t	1.29 KB	-r--r--r--	2014-12-27 11:48
svsetsv.t	1015 B	-r--r--r--	2014-12-27 11:48
swaplabel.t	7.06 KB	-r--r--r--	2014-12-27 11:48
swaptwostmts.t	2.79 KB	-r--r--r--	2014-12-27 11:48
sym-hook.t	730 B	-r--r--r--	2014-12-27 11:48
temp_lv_sub.t	532 B	-r--r--r--	2014-12-27 11:48
underscore_length.t	338 B	-r--r--r--	2014-12-27 11:48
utf16_to_utf8.t	2.09 KB	-r--r--r--	2014-12-27 11:48
utf8.t	13.46 KB	-r--r--r--	2014-12-27 11:48
whichsig.t	653 B	-r--r--r--	2014-12-27 11:48
xs_special_subs.t	6.54 KB	-r--r--r--	2014-12-27 11:48
xs_special_subs_require.t	7.46 KB	-r--r--r--	2014-12-27 11:48
xsub_h.t	2.81 KB	-r--r--r--	2014-12-27 11:48

Rename

use warnings;
use strict;

use Test::More tests => 2*10;

BEGIN { $^H |= 0x20000; }

my @t;

sub mymap(&@) { my $sub = shift; return map { $sub->($_) } @_; }
sub myneg(@) { return map { -$_ } @_; }
package AA { sub listmeth { shift; return map { -$_ } @_; } }

@t = ();
eval q{
	use XS::APItest qw(arrayfullexpr);
	no warnings "void";
	push @t, arrayfullexpr 1+2;
	push @t, arrayfullexpr 0 || 2;
	push @t, arrayfullexpr 1 || 2;
	push @t, arrayfullexpr 0 || 2, 3;
	push @t, arrayfullexpr 1 || 2, 3;
	push @t, arrayfullexpr 1, 2;
	push @t, arrayfullexpr 0 or 2;
	push @t, arrayfullexpr 1 or 2;
	push @t, arrayfullexpr 0 or 2, 3;
	push @t, arrayfullexpr 1 or 2, 3;
	{ push @t, arrayfullexpr 1, 2 }
	push @t, (arrayfullexpr 1, 2), 3;
	push @t, arrayfullexpr do { 1; 1 }, 2;
	push @t, arrayfullexpr 3, 4 if 1;
	push @t, arrayfullexpr 5, 6 if 0;
	push @t, arrayfullexpr (7, 8), 9;
	push @t, arrayfullexpr a => "b";
	push @t, arrayfullexpr 1 ? reverse 2, 3 : 4, 5;
	push @t, arrayfullexpr 0 ? reverse 2, 3 : 4, 5;
	push @t, 1 ? reverse arrayfullexpr 2, 3 : 4, 5;
	push @t, 0 ? reverse arrayfullexpr 2, 3 : 4, 5;
	push @t, arrayfullexpr reverse 1, 2, 3;
	push @t, sub { arrayfullexpr return 1, 2, 3 }->();
	push @t, arrayfullexpr myneg 1, 2, 3;
	push @t, arrayfullexpr map { -$_ } 1, 2, 3;
	push @t, arrayfullexpr mymap { -$_[0] } 1, 2, 3;
	push @t, arrayfullexpr AA->listmeth(1, 2), 3;
	push @t, arrayfullexpr listmeth AA (1, 2), 3;
	push @t, arrayfullexpr listmeth AA 1, 2, 3;
	push @t, arrayfullexpr not 1, 2;
	push @t, arrayfullexpr reverse 6, 7, 8 or 9;
	push @t, arrayfullexpr reverse 6, 7, 8 and 9;
	push @t, arrayfullexpr 1 << 2;
	push @t, arrayfullexpr 7 < 8;
};
is $@, "";
is_deeply \@t, [
	[3],
	[2],
	[1],
	[2,3],
	[1,3],
	[1,2],
	[2],
	[1],
	[2,3],
	[1],
	[1,2],
	[1,2], 3,
	[1,2],
	[3,4],
	[7,8,9],
	["a","b"],
	[3,2,5],
	[4,5],
	[2,3], 5,
	4, 5,
	[3,2,1],
	1, 2, 3,
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,3],
	[-1,-2,3],
	[-1,-2,-3],
	[!1],
	[876],
	[9],
	[4],
	[!!1],
];

@t = ();
eval q{
	use XS::APItest qw(arraylistexpr);
	no warnings "void";
	push @t, arraylistexpr 1+2;
	push @t, arraylistexpr 0 || 2;
	push @t, arraylistexpr 1 || 2;
	push @t, arraylistexpr 0 || 2, 3;
	push @t, arraylistexpr 1 || 2, 3;
	push @t, arraylistexpr 1, 2;
	push @t, arraylistexpr 0 or 2;
	push @t, arraylistexpr 1 or 2;
	push @t, arraylistexpr 0 or 2, 3;
	push @t, arraylistexpr 1 or 2, 3;
	{ push @t, arraylistexpr 1, 2 }
	push @t, (arraylistexpr 1, 2), 3;
	push @t, arraylistexpr do { 1; 1 }, 2;
	push @t, arraylistexpr 3, 4 if 1;
	push @t, arraylistexpr 5, 6 if 0;
	push @t, arraylistexpr (7, 8), 9;
	push @t, arraylistexpr a => "b";
	push @t, arraylistexpr 1 ? reverse 2, 3 : 4, 5;
	push @t, arraylistexpr 0 ? reverse 2, 3 : 4, 5;
	push @t, 1 ? reverse arraylistexpr 2, 3 : 4, 5;
	push @t, 0 ? reverse arraylistexpr 2, 3 : 4, 5;
	push @t, arraylistexpr reverse 1, 2, 3;
	push @t, sub { arraylistexpr return 1, 2, 3 }->();
	push @t, arraylistexpr myneg 1, 2, 3;
	push @t, arraylistexpr map { -$_ } 1, 2, 3;
	push @t, arraylistexpr mymap { -$_[0] } 1, 2, 3;
	push @t, arraylistexpr AA->listmeth(1, 2), 3;
	push @t, arraylistexpr listmeth AA (1, 2), 3;
	push @t, arraylistexpr listmeth AA 1, 2, 3;
	push @t, arraylistexpr not 1, 2;
	push @t, arraylistexpr reverse 6, 7, 8 or 9;
	push @t, arraylistexpr reverse 6, 7, 8 and 9;
	push @t, arraylistexpr 1 << 2;
	push @t, arraylistexpr 7 < 8;
};
is $@, "";
is_deeply \@t, [
	[3],
	[2],
	[1],
	[2,3],
	[1,3],
	[1,2],
	[0],
	[1],
	[0],
	[1],
	[1,2],
	[1,2], 3,
	[1,2],
	[3,4],
	[7,8,9],
	["a","b"],
	[3,2,5],
	[4,5],
	[2,3], 5,
	4, 5,
	[3,2,1],
	1, 2, 3,
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,3],
	[-1,-2,3],
	[-1,-2,-3],
	[!1],
	[8,7,6],
	[8,7,6],
	[4],
	[!!1],
];

@t = ();
eval q{
	use XS::APItest qw(arraytermexpr);
	no warnings "void";
	push @t, arraytermexpr 1+2;
	push @t, arraytermexpr 0 || 2;
	push @t, arraytermexpr 1 || 2;
	push @t, arraytermexpr 0 || 2, 3;
	push @t, arraytermexpr 1 || 2, 3;
	push @t, arraytermexpr 1, 2;
	push @t, arraytermexpr 0 or 2;
	push @t, arraytermexpr 1 or 2;
	push @t, arraytermexpr 0 or 2, 3;
	push @t, arraytermexpr 1 or 2, 3;
	{ push @t, arraytermexpr 1 }
	push @t, (arraytermexpr 1, 2), 3;
	push @t, arraytermexpr do { 1; 1 }, 2;
	push @t, arraytermexpr 3, 4 if 1;
	push @t, arraytermexpr 5, 6 if 0;
	push @t, arraytermexpr (7, 8), 9;
	push @t, arraytermexpr a => "b";
	push @t, arraytermexpr 1 ? reverse 2, 3 : 4, 5;
	push @t, arraytermexpr 0 ? reverse 2, 3 : 4, 5;
	push @t, 1 ? reverse arraytermexpr 2, 3 : 4, 5;
	push @t, 0 ? reverse arraytermexpr 2, 3 : 4, 5;
	push @t, arraytermexpr reverse 1, 2, 3;
	push @t, sub { arraytermexpr return 1, 2, 3 }->();
	push @t, arraytermexpr myneg 1, 2, 3;
	push @t, arraytermexpr map { -$_ } 1, 2, 3;
	push @t, arraytermexpr mymap { -$_[0] } 1, 2, 3;
	push @t, arraytermexpr AA->listmeth(1, 2), 3;
	push @t, arraytermexpr listmeth AA (1, 2), 3;
	push @t, arraytermexpr listmeth AA 1, 2, 3;
	push @t, arraytermexpr not 1, 2;
	push @t, arraytermexpr reverse 6, 7, 8 or 9;
	push @t, arraytermexpr reverse 6, 7, 8 and 9;
	push @t, arraytermexpr 1 << 2;
	push @t, arraytermexpr 7 < 8;
};
is $@, "";
is_deeply \@t, [
	[3],
	[2],
	[1],
	[2], 3,
	[1], 3,
	[1], 2,
	[0],
	[1],
	[0],
	[1],
	[1],
	[1], 2, 3,
	[1], 2,
	[3], 4,
	[7,8], 9,
	["a"], "b",
	[3,2], 5,
	[4], 5,
	3, [2], 5,
	4, 5,
	[3,2,1],
	1, 2, 3,
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2], 3,
	[-1,-2], 3,
	[-1,-2,-3],
	[!1],
	[8,7,6],
	[8,7,6],
	[4],
	[!!1],
];

@t = ();
eval q{
	use XS::APItest qw(arrayarithexpr);
	no warnings "void";
	push @t, arrayarithexpr 1+2;
	push @t, arrayarithexpr 0 || 2;
	push @t, arrayarithexpr 1 || 2;
	push @t, arrayarithexpr 0 || 2, 3;
	push @t, arrayarithexpr 1 || 2, 3;
	push @t, arrayarithexpr 1, 2;
	push @t, arrayarithexpr 0 or 2;
	push @t, arrayarithexpr 1 or 2;
	push @t, arrayarithexpr 0 or 2, 3;
	push @t, arrayarithexpr 1 or 2, 3;
	{ push @t, arrayarithexpr 1 }
	push @t, (arrayarithexpr 1, 2), 3;
	push @t, arrayarithexpr do { 1; 1 }, 2;
	push @t, arrayarithexpr 3, 4 if 1;
	push @t, arrayarithexpr 5, 6 if 0;
	push @t, arrayarithexpr (7, 8), 9;
	push @t, arrayarithexpr a => "b";
	push @t, arrayarithexpr 1 ? reverse 2, 3 : 4, 5;
	push @t, arrayarithexpr 0 ? reverse 2, 3 : 4, 5;
	push @t, 1 ? reverse arrayarithexpr 2, 3 : 4, 5;
	push @t, 0 ? reverse arrayarithexpr 2, 3 : 4, 5;
	push @t, arrayarithexpr reverse 1, 2, 3;
	push @t, sub { arrayarithexpr return 1, 2, 3 }->();
	push @t, arrayarithexpr myneg 1, 2, 3;
	push @t, arrayarithexpr map { -$_ } 1, 2, 3;
	push @t, arrayarithexpr mymap { -$_[0] } 1, 2, 3;
	push @t, arrayarithexpr AA->listmeth(1, 2), 3;
	push @t, arrayarithexpr listmeth AA (1, 2), 3;
	push @t, arrayarithexpr listmeth AA 1, 2, 3;
	push @t, arrayarithexpr not 1, 2;
	push @t, arrayarithexpr reverse 6, 7, 8 or 9;
	push @t, arrayarithexpr reverse 6, 7, 8 and 9;
	push @t, arrayarithexpr 1 << 2;
	push @t, arrayarithexpr 7 < 8;
};
is $@, "";
is_deeply \@t, [
	[3],
	[0],
	[1],
	[0], 3,
	[1], 3,
	[1], 2,
	[0],
	[1],
	[0],
	[1],
	[1],
	[1], 2, 3,
	[1], 2,
	[3], 4,
	[7,8], 9,
	["a"], "b",
	3, 2, 5,
	3, 2, 5,
	3, [2], 5,
	4, 5,
	[3,2,1],
	1, 2, 3,
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2,-3],
	[-1,-2], 3,
	[-1,-2], 3,
	[-1,-2,-3],
	[!1],
	[8,7,6],
	[8,7,6],
	[4],
	!!0,
];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags! 1, 2;
};
is $@, "";
is_deeply \@t, [ [1,2] ];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags? 1, 2;
};
is $@, "";
is_deeply \@t, [ [1,2] ];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags! [);
};
like $@, qr/\A(?:Parse|syntax) error/;
is_deeply \@t, [];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags? [);
};
like $@, qr/\A(?:Parse|syntax) error/;
is_deeply \@t, [];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags! ;
};
like $@, qr/\A(?:Parse|syntax) error/;
is_deeply \@t, [];

@t = ();
eval q{
	use XS::APItest qw(arrayexprflags);
	push @t, arrayexprflags? ;
};
is $@, "";
is_deeply \@t, [ {} ];