diff options
Diffstat (limited to 't')
-rw-r--r-- | t/00-basic.rakutest | 6 | ||||
-rw-r--r-- | t/01-seconds-to-str.rakutest | 10 |
2 files changed, 16 insertions, 0 deletions
diff --git a/t/00-basic.rakutest b/t/00-basic.rakutest new file mode 100644 index 0000000..ca3938b --- /dev/null +++ b/t/00-basic.rakutest @@ -0,0 +1,6 @@ +use Test; + +plan 2; + +use-ok 'Taurus::CLI'; +use-ok 'Taurus::Seconds'; diff --git a/t/01-seconds-to-str.rakutest b/t/01-seconds-to-str.rakutest new file mode 100644 index 0000000..85c5076 --- /dev/null +++ b/t/01-seconds-to-str.rakutest @@ -0,0 +1,10 @@ +use Test; +use Taurus::Seconds; + +plan 5; + +is seconds-to-str(59), "59s", "Less than 60"; +is seconds-to-str(3599), "59m 59s", "Less than 3600"; +is seconds-to-str(86399), "23h 59m 59s", "Less than 86400"; +is seconds-to-str(86401), "1d 0h 0m 1s", "More than 86400"; +throws-like { seconds-to-str(-1) }, Exception, message => /:s Constraint type check failed in binding to parameter/, "Negative Int check"; |