lib/locale.t: Add skip(), fail() functions
authorKarl Williamson <khw@cpan.org>
Mon, 24 Oct 2016 04:02:13 +0000 (22:02 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 26 Oct 2016 18:14:06 +0000 (12:14 -0600)
lib/locale.t

index 8b257e7..4e0086b 100644 (file)
@@ -103,6 +103,14 @@ sub ok {
     return ($result) ? 1 : 0;
 }
 
+sub skip {
+    return ok 1, "skipped: " . shift;
+}
+
+sub fail {
+    return ok 0, shift;
+}
+
 # First we'll do a lot of taint checking for locales.
 # This is the easiest to test, actually, as any locale,
 # even the default locale will taint under 'use locale'.