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/01-seconds-to-str.rakutest | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 t/01-seconds-to-str.rakutest (limited to 't/01-seconds-to-str.rakutest') 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