From 96aa6d3c847192863507a282e38664cca693af07 Mon Sep 17 00:00:00 2001 From: Matthew Cline Date: Tue, 3 Nov 2009 02:54:13 -0800 Subject: Unit test for beams bouncing --- crawl-ref/source/test/bounce.lua | 47 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 crawl-ref/source/test/bounce.lua (limited to 'crawl-ref/source/test/bounce.lua') diff --git a/crawl-ref/source/test/bounce.lua b/crawl-ref/source/test/bounce.lua new file mode 100644 index 0000000000..357f2072e3 --- /dev/null +++ b/crawl-ref/source/test/bounce.lua @@ -0,0 +1,47 @@ +-- Check bouncing of lightning bolts around in a box with ragged +-- edges. If there's anything wrong the C/C++ code will assert. + +local checks = 0 +local iters = 10 + +local function test_bounce_iter(map) + dgn.reset_level() + -- local width, height = dgn.mapsize(map) -- returns (0,0) + local function place_map() + return dgn.place_map(map, true, true, 30, 30) + end + dgn.with_map_anchors(30, 30, place_map) + + if dgn.grid(31, 31) ~= dgn.find_feature_number("floor") then + assert(false, "Map not placed properly") + end + + -- Move player out of the way + you.moveto(2, 2) + + -- Fire beams slightly off of compass directions, to get the + -- beam to bounce all over the place. + debug.bouncy_beam(30, 30, 30 - 8, 30 - 7, 1000) + debug.bouncy_beam(30, 30, 30 - 1, 30 - 8, 1000) + debug.bouncy_beam(30, 30, 30 + 8, 30 - 7, 1000) + debug.bouncy_beam(30, 30, 30 + 1, 30 - 8, 1000) + debug.bouncy_beam(30, 30, 30 - 8, 30 + 7, 1000) + debug.bouncy_beam(30, 30, 30 - 1, 30 + 8, 1000) + debug.bouncy_beam(30, 30, 30 + 8, 30 + 7, 1000) + debug.bouncy_beam(30, 30, 30 + 1, 30 + 8, 1000) +end + +local function test_bounces() + dgn.load_des_file("test/des/bounce.des") + local map = dgn.map_by_tag("bounce_test") + assert(map, "Could not find bounce_test map (tag 'bounce_test')") + -- The ragedness of the map edge is randomized on placement, + -- so place the same map multiple times. + for i = 1, iters do + test_bounce_iter(map) + end + + checks = 1 +end + +test_bounces() -- cgit v1.2.3-54-g00ecf