From cff718f37dc97d34c6d724e1bc8d1409f946ad49 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Fri, 17 Jun 2022 17:27:42 -0500 Subject: [PATCH] Add suite0012 stub with delay test. --- test/suite0011.janet | 2 +- test/suite0012.janet | 32 ++++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+), 1 deletion(-) create mode 100644 test/suite0012.janet diff --git a/test/suite0011.janet b/test/suite0011.janet index e2a96fbf..f2806092 100644 --- a/test/suite0011.janet +++ b/test/suite0011.janet @@ -1,4 +1,4 @@ -# Copyright (c) 2021 Calvin Rose & contributors +# Copyright (c) 2022 Calvin Rose & contributors # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to diff --git a/test/suite0012.janet b/test/suite0012.janet new file mode 100644 index 00000000..45727ade --- /dev/null +++ b/test/suite0012.janet @@ -0,0 +1,32 @@ +# Copyright (c) 2022 Calvin Rose & contributors +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to +# deal in the Software without restriction, including without limitation the +# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or +# sell copies of the Software, and to permit persons to whom the Software is +# furnished to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in +# all copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS +# IN THE SOFTWARE. + +(import ./helper :prefix "" :exit true) +(start-suite 12) + +(var counter 0) +(def thunk (delay (++ counter))) +(assert (= (thunk) 1) "delay 1") +(assert (= counter 1) "delay 2") +(assert (= (thunk) 1) "delay 3") +(assert (= counter 1) "delay 4") + +(end-suite) +