+test("A","aaa");
+test("A","bbb");
+test("A","ccc");
# 普通に実行
+exptest1($a),test("A",$a),prtn("CHK_1:", $a), next;
# Assertion（~!、1回,）
+exptest2($a),test~!("A",$a),prtn("CHK_2:",$a),next,catch($x),debug($x),prtn(@x:in),next;
# Assertion（~?、0,1回）
+exptest3($a),test~?("A",$a),prtn("CHK_3:",$a),next,catch($x),debug($x);
# Assertion（~?、1回以上）
+exptest4($a),test~+("B",$a),prtn("CHK_4:",$a),next;
,exptest1($a),prtn("test1");	# 実行
,exptest2($a),prtn("test2");	# assert後のnextでtest2が表示されない
,exptest3($a),prtn("test3");	# assert後catchで、test3が表示
,exptest4($a),prtn("test4");	# assert、catchもしていないのでそのままエラー表示
