summaryrefslogtreecommitdiffstats
path: root/t/lib/Test/Games/SMTNocturne/Demons.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Test/Games/SMTNocturne/Demons.pm')
-rw-r--r--t/lib/Test/Games/SMTNocturne/Demons.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/t/lib/Test/Games/SMTNocturne/Demons.pm b/t/lib/Test/Games/SMTNocturne/Demons.pm
index 5ccd8ac..92ad93c 100644
--- a/t/lib/Test/Games/SMTNocturne/Demons.pm
+++ b/t/lib/Test/Games/SMTNocturne/Demons.pm
@@ -6,13 +6,21 @@ use Exporter 'import';
use Games::SMTNocturne::Demons;
use Test::More;
-our @EXPORT = ('fusion_is');
+our @EXPORT = ('fusion_is', 'set_fusion_options');
+
+my $FUSION_OPTIONS = {};
+
+sub set_fusion_options {
+ $FUSION_OPTIONS = $_[0];
+}
sub fusion_is {
local $Test::Builder::Level = $Test::Builder::Level + 1;
my ($demon1, $demon2, $expected) = @_;
- my $fused = eval { Games::SMTNocturne::Demons::fuse($demon1, $demon2) };
+ my $fused = eval {
+ Games::SMTNocturne::Demons::fuse($demon1, $demon2, $FUSION_OPTIONS)
+ };
die $@ if $@ && $@ !~ /\bnyi\b/;
local $TODO = $@ if $@;