pico8lib

• Index

Examples

• snippets.p8
• test_class.p8
• test_functions.p8
• test_json.p8
• test_test.p8
• class.p8
• log.p8

Modules

• pico8lib.class
• pico8lib.functions
• pico8lib.graphics
• pico8lib.json
• pico8lib.log
• pico8lib.math
• pico8lib.memory
• pico8lib.number
• pico8lib.physics
• pico8lib.rational
• pico8lib.strings
• pico8lib.tables
• pico8lib.test
• pico8lib.uint32
• pico8lib.vector

Topics

• README

test_class.p8

pico-8 cartridge // http://www.pico-8.com
version 18
__lua__

-- Unit tests for the class module
-- by sparr

-- to run the tests use pico8 -x tests/test_class.p8

#include ../pico8lib/class.lua
#include ../pico8lib/functions.lua
#include ../pico8lib/strings.lua
#include ../pico8lib/log.lua
#include ../pico8lib/tables.lua
#include ../pico8lib/test.lua

local suite = TestSuite("class.p8")

local Inheritance = TestCase("inheritance")

function Inheritance:test_assert_inheritance_values ()
 local class_parent = class( nil, { a = 1 } )
 local class_child = class(class_parent, { b = 2 } )
 local instance_parent = class_parent()
 local instance_child = class_child()
 self:assert_equal(class_parent.a, 1)
 self:assert_nil(class_parent.b)
 self:assert_equal(instance_parent.a, 1)
 self:assert_nil(instance_parent.b)
 self:assert_equal(class_child.a, 1)
 self:assert_equal(class_child.b, 2)
 self:assert_equal(instance_child.a, 1)
 self:assert_equal(instance_child.b, 2)
 class_parent.a = 3
 self:assert_equal(class_child.a, 3)
 self:assert_equal(instance_child.a, 3)
 self:assert_equal(instance_parent.a, 3)
 class_child.a = 4
 self:assert_equal(instance_parent.a, 3)
 self:assert_equal(instance_child.a, 4)
 instance_parent.a = 5
 self:assert_equal(class_parent.a, 3)
 self:assert_equal(instance_child.a, 4)
 instance_child.a = 6
 self:assert_equal(class_parent.a, 3)
 self:assert_equal(class_child.a, 4)
 class_child.b = 7
 self:assert_equal(instance_child.b, 7)
end

suite:add_test_case(Inheritance)

run_suites{suite}