File: bstair-gen.lua

package info (click to toggle)
crawl 2%3A0.34.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 100,188 kB
  • sloc: cpp: 363,709; ansic: 27,765; javascript: 9,516; python: 8,463; perl: 3,293; java: 3,132; xml: 2,380; makefile: 1,835; sh: 611; objc: 250; cs: 15; sed: 9; lisp: 3
file content (24 lines) | stat: -rw-r--r-- 784 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
local niters = 5

local function test_branch_stair_level(place, stair, nlevels)
  debug.goto_place(place)
  for i = 1, nlevels do
    crawl.message(place .. " branch stair test " .. i .. " of " .. nlevels)
    crawl.delay(0)
    test.regenerate_level()
    test.map_assert(test.find_feature(stair),
                    "No " .. stair .. " created at " .. place)
  end
end

local function test_branch_stair_places(nlevels, level_stairs)
  for _, place in ipairs(level_stairs) do
    test_branch_stair_level(place[1], place[2], nlevels)
  end
end

test_branch_stair_places(niters,
                 { { "Depths:$", "enter_zot" },
                   { "Depths:3", "enter_abyss" },
                   { "Depths:2", "enter_pandemonium" },
                   { "Depths:1", "enter_hell" } })