polserver/testsuite/pol/testpkgs/map/test_mapinfo.src
Kevin Eady 3ccf701ce9
Format testsuite scripts, pol-core support modules (#713)
* Format escript testsuite

* Manual formatting for escript testsuite
- Add format-off to places where formatter does what it should, but we don't like the results
- Manually change places where formatter outputs weird things _without_ format-off, so next format-all would show changes if not fixed

* Update .err files; add update_err.py helper script

Use the format `:line:col: message` for all .err file checks. This
allows us to change the file names without needing to edit the .err
contents.

Note that `in/inc0{1,2}.err` need have error messages between POSIX and
Windows, so their messages are a bit more "generic" than the other errs.

* Format pol testsuite

* Manual formatting for pol testsuite

* Format pol-core modules

* Manual formatting for pol-core modules

* Additional format pol-core modules

Use FormatterLineWidth=10000 since module functions must be on one line
because of the parse_modules target

* Address Discord comments

- Support multi-line module function declarations in parse_modules

* Format on df07831
2024-10-04 10:29:55 +02:00

46 lines
1.8 KiB
Text

use uo;
use os;
include "testutil";
program map_info()
return 1;
endprogram
exported function mapinfo()
var errortext := "";
for x := 31 to 33
for y := 20 to 30
var info := GetMapInfo( x, y );
if ( y < 28 )
if ( info.landtile != 0xa8 || info.z != -5 )
errortext += "Wrong mapinfo {},{}: expected {},{} got {},{}\n".format( x, y, 0xa8, -5,
info.landtile,
info.z );
endif
elseif ( y == 28 )
if ( info.landtile != 0x17 || info.z != -2 )
errortext += "Wrong mapinfo {},{}: expected {},{} got {},{}\n".format( x, y, 0x17, -3,
info.landtile,
info.z );
endif
elseif ( y == 29 )
if ( info.landtile != 0x17 || info.z != 0 )
errortext += "Wrong mapinfo {},{}: expected {},{} got {},{}\n".format( x, y, 0x17, 0,
info.landtile,
info.z );
endif
elseif ( y >= 30 )
if ( info.landtile != 0x3 || info.z != 0 )
errortext += "Wrong mapinfo {},{}: expected {},{} got {},{}\n".format( x, y, 0x3, 0,
info.landtile,
info.z );
endif
endif
endfor
endfor
if ( len( errortext ) )
return ret_error( errortext );
endif
return 1;
endfunction