--- /dev/null
+## name simple failure
+## failures 3
+## cut
+
+sub test_sub1 {
+ $foo = shift;
+ return undef;
+}
+
+sub test_sub2 {
+ shift || return undef;
+}
+
+sub test_sub3 {
+ return undef if $bar;
+}
+
+#-----------------------------------------------------------------------------
+
+## name simple success
+## failures 0
+## cut
+
+sub test_sub1 {
+ $foo = shift;
+ return;
+}
+
+sub test_sub2 {
+ shift || return;
+}
+
+sub test_sub3 {
+ return if $bar;
+}
+
+$foo{return}; # hash key, not keyword
+sub foo {return}; # no sibling