+tuple

1 files changed, 99 insertions, 0 deletions

diff --git a/Data/BuiltIn/Libraries/lua-stdlib/spec/math_spec.yaml b/Data/BuiltIn/Libraries/lua-stdlib/spec/math_spec.yaml
new file mode 100644
index 0000000..ed08753
--- /dev/null
+++ b/Data/BuiltIn/Libraries/lua-stdlib/spec/math_spec.yaml
@@ -0,0 +1,99 @@
+# General Lua Libraries for Lua 5.1, 5.2 & 5.3
+# Copyright (C) 2011-2018 stdlib authors
+
+before:
+  base_module  = 'math'
+  this_module  = 'std.math'
+  global_table = '_G'
+
+  extend_base  = {'floor', 'round'}
+
+  M = require(this_module)
+
+
+specify std.math:
+- context when required:
+  - context by name:
+    - it does not touch the global table:
+        expect(show_apis {added_to=global_table, by=this_module}).
+           to_equal {}
+    - it does not touch the core math table:
+        expect(show_apis {added_to=base_module, by=this_module}).
+           to_equal {}
+    - it contains apis from the core math table:
+        expect(show_apis {from=base_module, not_in=this_module}).
+           to_contain.a_permutation_of(extend_base)
+
+  - context via the std module:
+    - it does not touch the global table:
+        expect(show_apis {added_to=global_table, by='std'}).
+           to_equal {}
+    - it does not touch the core math table:
+        expect(show_apis {added_to=base_module, by='std'}).
+           to_equal {}
+
+
+- describe floor:
+  - before:
+      f = M.floor
+
+  - context with bad arguments:
+      badargs.diagnose(f, 'std.math.floor(number, ?int)')
+
+  - it rounds to the nearest smaller integer:
+      expect(f(1.2)).to_be(1)
+      expect(f(1.9)).to_be(1)
+      expect(f(999e-2)).to_be(9)
+      expect(f(999e-3)).to_be(0)
+  - it rounds down to specified number of decimal places:
+      expect(f(1.2345, 0)).to_be(1.0)
+      expect(f(1.2345, 1)).to_be(1.2)
+      expect(f(1.2345, 2)).to_be(1.23)
+      expect(f(9.9999, 2)).to_be(9.99)
+      expect(f(99999e-3, 3)).to_be(99999e-3)
+      expect(f(99999e-4, 3)).to_be(9999e-3)
+      expect(f(99999e-5, 3)).to_be(999e-3)
+
+
+- describe round:
+  - before:
+      f = M.round
+
+  - context with bad arguments:
+      badargs.diagnose(f, 'std.math.round(number, ?int)')
+
+  - it rounds to the nearest integer:
+      expect(f(1.2)).to_be(1)
+      expect(f(1.9)).to_be(2)
+      expect(f(949e-2)).to_be(9)
+      expect(f(999e-2)).to_be(10)
+  - it rounds to specified number of decimal places:
+      expect(f(1.234, 0)).to_be(1.0)
+      expect(f(5.678, 0)).to_be(6.0)
+      expect(f(1.234, 1)).to_be(1.2)
+      expect(f(5.678, 1)).to_be(5.7)
+      expect(f(1.234, 2)).to_be(1.23)
+      expect(f(5.678, 2)).to_be(5.68)
+      expect(f(9.999, 2)).to_be(10)
+      expect(f(11111e-2, 3)).to_be(11111e-2)
+      expect(f(99999e-2, 3)).to_be(99999e-2)
+      expect(f(11111e-3, 3)).to_be(11111e-3)
+      expect(f(99999e-3, 3)).to_be(99999e-3)
+      expect(f(11111e-4, 3)).to_be(1111e-3)
+      expect(f(99999e-4, 3)).to_be(10)
+      expect(f(99999e-5, 3)).to_be(1)
+  - it rounds negative values correctly:
+      expect(f(-1.234, 0)).to_be(-1.0)
+      expect(f(-5.678, 0)).to_be(-6.0)
+      expect(f(-1.234, 1)).to_be(-1.2)
+      expect(f(-5.678, 1)).to_be(-5.7)
+      expect(f(-1.234, 2)).to_be(-1.23)
+      expect(f(-5.678, 2)).to_be(-5.68)
+      expect(f(-9.999, 2)).to_be(-10)
+      expect(f(-11111e-2, 3)).to_be(-11111e-2)
+      expect(f(-99999e-2, 3)).to_be(-99999e-2)
+      expect(f(-11111e-3, 3)).to_be(-11111e-3)
+      expect(f(-99999e-3, 3)).to_be(-99999e-3)
+      expect(f(-11111e-4, 3)).to_be(-1111e-3)
+      expect(f(-99999e-4, 3)).to_be(-10)
+      expect(f(-99999e-5, 3)).to_be(-1)