Stat updates for r100

[ndwebbie.git] / t / stats.t

diff --git a/t/stats.t b/t/stats.t
new file mode 100644 (file)
index 0000000..952daca
--- /dev/null
+++ b/t/stats.t
@@ -0,0 +1,66 @@
+use strict;
+use warnings;
+use Test2::V0;
+
+use Data::Dumper;
+use FindBin;
+
+use NDWeb::Stats;
+
+my $xml = do {
+       open my $in, '<', "$FindBin::Bin/stats.xml" or die "Can't read file: $!";
+       local $/;
+       <$in>
+};
+my @ships = parseStats($xml);
+
+#print Dumper(\@ships), "\n";
+
+is ($ships[0]->{ship}, 'Harpy');
+is ($ships[0]->{race}, 'Terran');
+is ($ships[0]->{class}, 'Fi');
+is ($ships[0]->{type}, 'Normal');
+is ($ships[0]->{baseeta}, 12);
+is ($ships[0]->{init}, 11);
+is ($ships[0]->{damage}, 14);
+is ($ships[8]->{class}, 'Fr');
+is ($ships[8]->{type}, 'Pod');
+is ($ships[8]->{t1}, 'Ro');
+is ($ships[8]->{cloaked}, 0);
+is ($ships[11]->{class}, 'De');
+is ($ships[11]->{type}, 'Structure');
+is ($ships[11]->{t1}, 'St');
+is ($ships[16]->{ship}, 'Black Widow');
+is ($ships[16]->{race}, 'Cathaar');
+is ($ships[16]->{class}, 'De');
+is ($ships[16]->{type}, 'EMP');
+is ($ships[16]->{t1}, 'Cr');
+is ($ships[16]->{t2}, '-');
+is ($ships[16]->{baseeta}, 13);
+is ($ships[16]->{init}, 2);
+is ($ships[16]->{cloaked}, 0);
+is ($ships[16]->{damage}, 0);
+is ($ships[15]->{t2}, 'Bs');
+is ($ships[22]->{class}, 'Cr');
+is ($ships[22]->{type}, 'Pod');
+is ($ships[22]->{t1}, 'Ro');
+is ($ships[55]->{ship}, 'Gas giant');
+is ($ships[55]->{race}, 'Kinthia');
+is ($ships[55]->{class}, 'Bs');
+is ($ships[55]->{type}, 'EMP');
+is ($ships[55]->{t1}, 'Cr');
+is ($ships[55]->{t2}, '-');
+is ($ships[55]->{baseeta}, 14);
+is ($ships[55]->{init}, 1);
+is ($ships[55]->{cloaked}, 1);
+is ($ships[55]->{damage}, 0);
+is ($ships[69]->{ship}, 'Ram');
+is ($ships[69]->{race}, 'Slythonian');
+is ($ships[69]->{class}, 'Co');
+is ($ships[69]->{type}, 'Resources');
+is ($ships[69]->{t1}, 'Re');
+is ($ships[69]->{t2}, '-');
+is ($ships[69]->{baseeta}, 12);
+is ($ships[69]->{init}, 40);
+
+done_testing();