view release on metacpan or  search on metacpan

t/013_cmd.t  view on Meta::CPAN

			# exception expected
			my $expected_exception = $test->{expected_exception};
			like($exception, qr/$expected_exception/, "$test_set: expected exception");
		}

		# check return code
		if (exists $test->{retcode}) {
			is($retcode, $test->{retcode}, "$test_set: return code");
		}

		# return-code callback tests: test callbacks for zero flag, nonzero flag & nonzero value
		if ($test->{nonzero_set} // 0) {
			is($nonzero_flag, 1, "$test_set: nonzero flag set");
		}
		if ($test->{nonzero_unset} // 0) {
			is($nonzero_flag, 0, "$test_set: nonzero flag unset");
		}
		if ($test->{zero_set} // 0) {
			is($zero_flag, 1, "$test_set: zero flag set");
		}
		if ($test->{zero_unset} // 0) {

t/014_buildah.t  view on Meta::CPAN

			# exception expected
			my $expected_exception = $test->{expected_exception};
			like($exception, qr/$expected_exception/s, "$test_set: expected exception");
		}

		# check return code
		if (exists $test->{retcode}) {
			is($retcode, $test->{retcode}, "$test_set: return code");
		}

		# return-code callback tests: test callbacks for zero flag, nonzero flag & nonzero value
		if ($test->{nonzero_set} // 0) {
			is($nonzero_flag, 1, "$test_set: nonzero flag set");
		}
		if ($test->{nonzero_unset} // 0) {
			is($nonzero_flag, 0, "$test_set: nonzero flag unset");
		}
		if ($test->{zero_set} // 0) {
			is($zero_flag, 1, "$test_set: zero flag set");
		}
		if ($test->{zero_unset} // 0) {