Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unbust make test.
  • Loading branch information
@jnthn
jnthn committed Feb 28, 2013
1 parent 056d28c commit 5312f5c
Show file tree
Hide file tree
Showing 16 changed files with 808 additions and 538 deletions.
210 changes: 126 additions & 84 deletions t/qast/qast_6model.t
View file
Expand Up @@ -18,10 +18,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"Got KnowHOW\n",
"Obtaining KnowHOW works");
Expand Down Expand Up @@ -76,10 +78,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"A Punk IPA, good sir\n",
"Can create a new type with a method and call it");
Expand Down Expand Up @@ -124,10 +128,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"GreenTea\n",
"Created type's .name is properly set");
Expand Down Expand Up @@ -187,10 +193,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"Survived!\n",
"Can create instances of a type");
Expand Down Expand Up @@ -271,10 +279,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"2\n",
"Reference type attribute works");
Expand Down Expand Up @@ -356,10 +366,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"2\n",
"Reference type attribute works, with QAST::Var node");
Expand Down Expand Up @@ -434,10 +446,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"34\n",
"Native int attribute works");
Expand Down Expand Up @@ -513,10 +527,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"34\n",
"Native int attribute works, with QAST::Var node");
Expand Down Expand Up @@ -591,10 +607,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"3.4\n",
"Native num attribute works");
Expand Down Expand Up @@ -669,10 +687,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"Kde je moje pivo?\n",
"Native str attribute works");
Expand Down Expand Up @@ -710,10 +730,12 @@ qast_test(
);
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"13\n3.14\nDrop bear!\n",
"Boxing/unboxing of boot types");
Expand Down Expand Up @@ -772,10 +794,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"2013\n",
"P6opaque box target with native int");
Expand Down Expand Up @@ -834,10 +858,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"20.13\n",
"P6opaque box target with native num");
Expand Down Expand Up @@ -896,10 +922,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"Innis and Gunn\n",
"P6opaque box target with native str");
Expand Down Expand Up @@ -949,10 +977,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"0\n1\n1\n1\n0\n0\n",
"isconcrete works");
Expand Down Expand Up @@ -1065,10 +1095,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"0\n0\n1\n1\n1\n0\n",
"Boolification");
Expand All @@ -1094,10 +1126,12 @@ qast_test(
));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"0\n1\n",
"defined works, just like isconcrete by default");
Expand Down Expand Up @@ -1156,10 +1190,12 @@ qast_test(
))));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"1\n0\n0\n0\n1\n",
"eqaddr works");
Expand Down Expand Up @@ -1194,10 +1230,12 @@ qast_test(
))));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"0\n1\n0\n1\n",
"isnull and isnull_s work");
Expand All @@ -1222,10 +1260,12 @@ qast_test(
))));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"1\n0\n",
"can works");
Expand All @@ -1247,10 +1287,12 @@ qast_test(
))));
QAST::CompUnit.new(
$block,
:main(QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
)))
:main(QAST::Stmts.new(
QAST::Var.new( :name('ARGS'), :scope('local'), :decl('param'), :slurpy(1) ),
QAST::Op.new(
:op('call'),
QAST::BVal.new( :value($block) )
))))
},
"Uninstantiable\n",
"newtype and reprname");

0 comments on commit 5312f5c

Please sign in to comment.