Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

CLEO testing library #92

Merged
merged 7 commits into from
Mar 6, 2024
Merged

CLEO testing library #92

Show file tree
Hide file tree
Changes from 3 commits
Commits
Show all changes
7 commits
Select commit Hold shift + click to select a range
8c79dcf
add testing framework
x87 Mar 4, 2024
bf0f889
update
x87 Mar 4, 2024
979ba71
update
x87 Mar 5, 2024
2cb036c
display assert index in failed message
x87 Mar 6, 2024
6ae0f05
more tests
x87 Mar 6, 2024
a50c729
add annotations
x87 Mar 6, 2024
a8b1d32
fix
x87 Mar 6, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
69 changes: 31 additions & 38 deletions tests/cleo_tests/FilesystemOperations/0A9A.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,48 +1,41 @@
{$CLEO .s}
{$USE debug}
{$USE file}
{$USE bitwise}
var 0@ : Integer
var 1@ : Integer
var 2@ : Integer
var 3@ : Integer
var 4@ : Integer
var 5@ : Integer
var 6@ : Integer
var 7@ : Integer
var 8@ : Integer
var 9@ : Integer
var 10@ : Integer
{$INCLUDE_ONCE ../cleo_tester.txt}

script_name "0A9A" // open_file
debug_on

trace "0A9A (open_file)"

test("0A9A (open_file)", @tests)
terminate_this_custom_script

wait 0
// try open non existing file
if
// test 0A9A
0@ = open_file "cleo\not_a_file.txt" {mode} "r" // tested opcode
then
breakpoint "~r~~h~~h~~h~0A9A (open_file), #0 FAILED! Opened non existing file?"
else
trace "~g~~h~~h~0A9A (open_file), #0 PASSED"
end

function tests

it("should fail on a non-existing file", @test1)
it("should open existing file", @test2)

return true


function test1
if
0@ = open_file "cleo\not_a_file.txt" {mode} "r" // tested opcode
then
assert(false)
else
assert(true)
end
end

function test2
if
0@ = open_file "cleo\.cleo.log" {mode} "r" // tested opcode
then
assert(true)
close_file 0@
else
assert(false)
end
end

wait 0
// try open non existing file
if
// test 0A9A
0@ = open_file "cleo\.cleo.log" {mode} "r" // tested opcode
then
trace "~g~~h~~h~0A9A (open_file), #1 PASSED"
close_file 0@
else
breakpoint "~r~~h~~h~~h~0A9A (open_file), #1 FAILED! Failed to open file."
end


terminate_this_custom_script
254 changes: 81 additions & 173 deletions tests/cleo_tests/MemoryOperations/0A8C.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,180 +1,88 @@
{$CLEO .s}
{$USE debug}
{$USE memory}
var 0@ : Integer
var 1@ : Integer
var 2@ : Integer
var 3@ : Integer
var 4@ : Integer
var 5@ : Integer
var 6@ : Integer
var 7@ : Integer
var 8@ : Integer
var 9@ : Integer
var 10@ : Integer
{$INCLUDE_ONCE ../cleo_tester.txt}

script_name "0A8C" // write_memory
debug_on

trace "0A8C (write_memory)"

wait 0
// write 0 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 0 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0xdddddddd
3@ == 0xeeeeeeee
then
trace "~g~~h~~h~0A8C (write_memory), #0 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #0 FAILED!~n~cccccccc dddddddd eeeeeeee Expected~n~%08x %08x %08x Occured" 1@ 2@ 3@
end


wait 0
// write 1 byte
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 1 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0xdddddd44
3@ == 0xeeeeeeee
then
trace "~g~~h~~h~0A8C (write_memory), #1 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #1 FAILED!~n~cccccccc dddddd44 eeeeeeee Expected~n~%08x %08x %08x Occured" 1@ 2@ 3@
end


wait 0
// write 2 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 2 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0xdddd3344
3@ == 0xeeeeeeee
then
trace "~g~~h~~h~0A8C (write_memory), #2 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #2 FAILED!~n~cccccccc dddd3344 eeeeeeee Expected~n~%08x %08x %08x Occured" 1@ 2@ 3@
end


wait 0
// write 3 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 3 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0xdd444444 // memset behavior
3@ == 0xeeeeeeee
then
trace "~g~~h~~h~0A8C (write_memory), #3 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #3 FAILED!~n~cccccccc dd444444 eeeeeeee Expected~n~%08x %08x %08x Occured" 1@ 2@ 3@
end


wait 0
// write 4 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 4 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0x11223344
3@ == 0xeeeeeeee
then
trace "~g~~h~~h~0A8C (write_memory), #4 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #4 FAILED!~n~cccccccc 11223344 eeeeeeee Expected~n~%08x %08x %08x Occured" 1@ 2@ 3@
end


wait 0
// write 5 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 5 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0x44444444
3@ == 0xeeeeee44
then
trace "~g~~h~~h~0A8C (write_memory), #5 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #5 FAILED! Expected: cccccccc, 44444444, eeeeee44 Actual: %08x %08x %08x" 1@ 2@ 3@
end


wait 0
// write 7 bytes
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee

0A8C: write_memory {address} 0@ {size} 7 {value} 0x11223344 {vp} false // tested opcode

if and
1@ == 0xcccccccc
2@ == 0x44444444
3@ == 0xee444444
then
trace "~g~~h~~h~0A8C (write_memory), #6 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #6 FAILED! Expected: cccccccc, 44444444, ee444444 Actual: %08x %08x %08x" 1@ 2@ 3@
end
script_name '0A8C'
test("0A8C (write_memory)", @tests)
terminate_this_custom_script

wait 0

// write float
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee
4@ = 100.0
function tests
before_each(@before)

it("should write 0 bytes", @test1)
it("should write 1 byte", @test2)
it("should write 2 bytes", @test3)
it("should write 3 bytes", @test4)
it("should write 4 bytes", @test5)
it("should write 5 bytes", @test6)
it("should write 7 bytes", @test7)
it("should write float", @test8)

return true

:before
get_var_pointer 2@ {store_to} 0@
1@ = 0xcccccccc
2@ = 0xdddddddd
3@ = 0xeeeeeeee
0051: return

function test1
write_memory {address} 0@ {size} 0 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0xdddddddd)
assert_eq(3@, 0xeeeeeeee)
end

function test2
write_memory {address} 0@ {size} 1 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0xdddddd44)
assert_eq(3@, 0xeeeeeeee)
end

function test3
write_memory {address} 0@ {size} 2 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0xdddd3344)
assert_eq(3@, 0xeeeeeeee)
MiranDMC marked this conversation as resolved.
Show resolved Hide resolved
end

function test4
write_memory {address} 0@ {size} 3 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0xdd444444) // memset behavior
assert_eq(3@, 0xeeeeeeee)
end

function test5
write_memory {address} 0@ {size} 4 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0x11223344)
assert_eq(3@, 0xeeeeeeee)
end

function test6
write_memory {address} 0@ {size} 5 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0x44444444)
assert_eq(3@, 0xeeeeee44)
end

function test7
write_memory {address} 0@ {size} 7 {value} 0x11223344 {vp} false
assert_eq(1@, 0xcccccccc)
assert_eq(2@, 0x44444444)
assert_eq(3@, 0xee444444)
end

function test8
4@ = 100.0
0A8C: write_memory {address} 0@ {size} 4 {value} 4@ {vp} false // tested opcode
assert_eq(1@, 0xcccccccc)
assert_eqf(2@, 100.0)
assert_eq(3@, 0xeeeeeeee)
end

0A8C: write_memory {address} 0@ {size} 4 {value} 4@ {vp} false // tested opcode

if
2@ == 100.0
then
trace "~g~~h~~h~0A8C (write_memory), #7 PASSED"
else
breakpoint "~r~~h~~h~~h~0A8C (write_memory), #7 FAILED!~n~cccccccc 100.0 eeeeeeee Expected~n~%08x %f %08x Occured" 1@ 2@ 3@
end


terminate_this_custom_script
Loading