From f60c2fb28918e4485fb6391356265bf14f1a9f91 Mon Sep 17 00:00:00 2001 From: Andinus Date: Mon, 16 Aug 2021 00:27:53 +0530 Subject: Add tests for seconds-to-str --- t/00-basic.rakutest | 6 ++++++ t/01-seconds-to-str.rakutest | 10 ++++++++++ 2 files changed, 16 insertions(+) create mode 100644 t/00-basic.rakutest create mode 100644 t/01-seconds-to-str.rakutest 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"; -- cgit 1.4.1-2-gfad0