<% $t->eok($0 =~ /transfer2\.inc$/ ? 1 : 0, "\$0 is not correct: $0"); $t->done; %>