1 files changed, 127 insertions, 0 deletions
diff --git a/Data/Libraries/luaunit/doc/my_test_suite.lua b/Data/Libraries/luaunit/doc/my_test_suite.lua
new file mode 100644
index 0000000..8fec554
--- /dev/null
+++ b/Data/Libraries/luaunit/doc/my_test_suite.lua
@@ -0,0 +1,127 @@
+
+--
+-- The examples described in the documentation are below.
+--
+
+lu = require('luaunit')
+
+function add(v1,v2)
+    -- add positive numbers
+    -- return 0 if any of the numbers are 0
+    -- error if any of the two numbers are negative
+    if v1 < 0 or v2 < 0 then
+        error('Can only add positive or null numbers, received '..v1..' and '..v2)
+    end
+    if v1 == 0 or v2 == 0 then
+        return 0
+    end
+    return v1+v2
+end
+
+function adder(v)
+    -- return a function that adds v to its argument using add
+    function closure( x ) return x+v end
+    return closure
+end
+
+function div(v1,v2)
+    -- divide positive numbers
+    -- return 0 if any of the numbers are 0
+    -- error if any of the two numbers are negative
+    if v1 < 0 or v2 < 0 then
+        error('Can only divide positive or null numbers, received '..v1..' and '..v2)
+    end
+    if v1 == 0 or v2 == 0 then
+        return 0
+    end
+    return v1/v2
+end
+
+
+
+TestAdd = {}
+    function TestAdd:testAddPositive()
+        lu.assertEquals(add(1,1),2)
+    end
+
+    function TestAdd:testAddZero()
+        lu.assertEquals(add(1,0),0)
+        lu.assertEquals(add(0,5),0)
+        lu.assertEquals(add(0,0),0)
+    end
+
+    function TestAdd:testAddError()
+        lu.assertErrorMsgContains('Can only add positive or null numbers, received 2 and -3', add, 2, -3)
+    end
+
+    function TestAdd:testAdder()
+        f = adder(3)
+        lu.assertIsFunction( f )
+        lu.assertEquals( f(2), 5 )
+    end
+-- end of table TestAdd
+
+TestDiv = {}
+    function TestDiv:testDivPositive()
+        lu.assertEquals(div(4,2),2)
+    end
+
+    function TestDiv:testDivZero()
+        lu.assertEquals(div(4,0),0)
+        lu.assertEquals(div(0,5),0)
+        lu.assertEquals(div(0,0),0)
+    end
+
+    function TestDiv:testDivError()
+        lu.assertErrorMsgContains('Can only divide positive or null numbers, received 2 and -3', div, 2, -3)
+    end
+-- end of table TestDiv
+
+--[[
+--
+--      Uncomment this section to see how failures are displayed
+--
+TestWithFailures = {}
+    -- two failing tests
+
+    function TestWithFailures:testFail1()
+        lu.assertEquals( "toto", "titi")
+    end
+
+    function TestWithFailures:testFail2()
+        local a=1
+        local b='toto'
+        local c = a + b -- oops, can not add string and numbers
+        return c
+    end
+-- end of table TestWithFailures
+]]
+
+
+--[[
+TestLogger = {}
+    function TestLogger:setUp()
+        -- define the fname to use for logging
+        self.fname = 'mytmplog.log'
+        -- make sure the file does not already exists
+        os.remove(self.fname)
+    end
+
+    function TestLogger:testLoggerCreatesFile()
+        initLog(self.fname)
+        log('toto')
+        f = io.open(self.fname, 'r')
+        lu.assertNotNil( f )
+        f:close()
+    end
+
+    function TestLogger:tearDown()
+        self.fname = 'mytmplog.log'
+        -- cleanup our log file after all tests
+        os.remove(self.fname)
+    end
+-- end of table TestLogger
+
+]]
+
+os.exit(lu.LuaUnit.run())