Add tests

inverse-inc · Oct 3, 2024 · 61bf6c1 · 61bf6c1
1 parent fcb4e1c
commit 61bf6c1
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/t/util.t b/t/util.t
@@ -316,7 +316,7 @@ use Test::More;
 use Test::NoWarnings;
 
 BEGIN {
- plan tests => 45 +
+ plan tests => 47 +
  ((scalar @NODE_ID_TESTS) * 3) +
  scalar @STRIP_FILENAME_FROM_EXCEPTIONS_TESTS +
  scalar @INVALID_DATES +
@@ -503,6 +503,11 @@ for my $test (@MAC2DEC) {
  is(extract('[[email protected]](mailto:[email protected])','@(\w+)','$1.VLAN'), "staff.VLAN")
 }
 
+{
+ ok(starts_with("dog", "do"), "starts_with");
+ ok(!starts_with("cat", "do"), "starts_with");
+}
+
 =head1 AUTHOR
 
 Inverse inc. <[email protected]>