1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
// -*- compile-command: "./test_single_testcase.sh TTestCastleTiledMap" -*-
{
Copyright 2021-2023 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Test CastleTiledMap unit. }
unit TestCastleTiledMap;
interface
uses
Classes, SysUtils, CastleTester;
type
TTestCastleTiledMap = class(TCastleTestCase)
published
procedure TestLoadingUi;
procedure TestLoadingTransform;
procedure TestLoadingRenderingWithoutAtlas;
end;
implementation
uses CastleTiledMap;
const
TestMaps: array [0..12] of String = (
'castle-data:/tiled-maps/desert.tmx',
'castle-data:/tiled-maps/desert_with_objects.tmx',
'castle-data:/tiled-maps/hexagonal-mini.tmx',
'castle-data:/tiled-maps/isometric_grass_and_water.tmx',
'castle-data:/tiled-maps/orthogonal-outside.tmx',
'castle-data:/tiled-maps/perspective_walls.tmx',
'castle-data:/tiled-maps/sewers.tmx',
// See https://github.com/castle-engine/castle-engine/pull/438
'castle-data:/tiled-maps/desert_with_empty_objects_layer.tmx',
'castle-data:/tiled-maps2/map-hexagonal.tmx',
'castle-data:/tiled-maps2/map-isometric-staggered.tmx',
'castle-data:/tiled-maps2/map-isometric-test-non-square.tmx',
'castle-data:/tiled-maps2/map-isometric.tmx',
'castle-data:/tiled-maps2/map-orthogonal.tmx'
);
procedure TTestCastleTiledMap.TestLoadingUi;
var
Map: TCastleTiledMapControl;
MapUrl: String;
begin
Map := TCastleTiledMapControl.Create(nil);
try
for MapUrl in TestMaps do
Map.Url := MapUrl;
finally FreeAndNil(Map) end;
end;
procedure TTestCastleTiledMap.TestLoadingTransform;
var
Map: TCastleTiledMap;
MapUrl: String;
begin
Map := TCastleTiledMap.Create(nil);
try
for MapUrl in TestMaps do
Map.Url := MapUrl;
finally FreeAndNil(Map) end;
end;
procedure TTestCastleTiledMap.TestLoadingRenderingWithoutAtlas;
var
Map: TCastleTiledMap;
begin
Map := TCastleTiledMap.Create(nil);
try
Map.Url := 'castle-data:/tiled-map-no-atlas/test.tmx';
finally FreeAndNil(Map) end;
end;
initialization
RegisterTest(TTestCastleTiledMap);
end.
|
