From 309246481601816036bd1c03178e301cd0492d19 Mon Sep 17 00:00:00 2001
From: Ian Docherty <github@iandocherty.com>
Date: Sun, 23 Sep 2012 12:19:59 -0400
Subject: [PATCH] Fix bug post-release to do with BHG subsidy

---
 lib/Lacuna/RPC/Building/BlackHoleGenerator.pm |  2 +
 t/490_bhg.pm                                  | 51 +++++++++++++++++++
 2 files changed, 53 insertions(+)
 create mode 100644 t/490_bhg.pm

diff --git a/lib/Lacuna/RPC/Building/BlackHoleGenerator.pm b/lib/Lacuna/RPC/Building/BlackHoleGenerator.pm
index 92be239a5..662f2d35c 100644
--- a/lib/Lacuna/RPC/Building/BlackHoleGenerator.pm
+++ b/lib/Lacuna/RPC/Building/BlackHoleGenerator.pm
@@ -458,6 +458,8 @@ sub generate_singularity {
     }
   }
   if ($subsidize) {
+    $empire->spend_essentia($chance->{essentia_cost},'BHG perfection subsidy after the fact');
+    $empire->update;
   }
 
   return {
diff --git a/t/490_bhg.pm b/t/490_bhg.pm
new file mode 100644
index 000000000..e169f46c7
--- /dev/null
+++ b/t/490_bhg.pm
@@ -0,0 +1,51 @@
+use lib '../lib';
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Test::Deep;
+use Test::Memory::Cycle;
+use Data::Dumper;
+use 5.010;
+use DateTime;
+use Lacuna;
+use TestHelper;
+
+my $empire_name     = 'icydee';
+my $planet_name     = 'iceburg';
+my $target_name     = 'Aep Eewes Eerv 3';
+
+my $tester = TestHelper->new({empire_name => $empire_name})->use_existing_test_empire;
+my $empire = $tester->empire;
+my $session = $empire->start_session({api_key => 'tester'});
+
+diag("Empire ".$empire->name);
+diag("Empire @{[$empire->name]}");
+diag("Session @{[$tester->session]}");
+
+my $session_id = $tester->session->id;
+
+my ($planet) = Lacuna->db->resultset('Map::Body::Planet')->search({name => $planet_name});
+my ($bhg)    = $planet->get_building_of_class('Lacuna::DB::Result::Building::Permanent::BlackHoleGenerator');
+
+diag("BHG = $bhg");
+
+my $result = $tester->post('blackholegenerator','get_actions_for', [$session_id, $bhg->id, {body_name => $target_name}]);
+diag(Dumper($result->{result}{tasks}));
+
+$result = $tester->post('blackholegenerator','generate_singularity', [{
+    session_id          => $session_id,
+    building_id         => $bhg->id,
+    target              => { body_name => $target_name },
+    task_name           => "Swap Places",
+    subsidize           => 1,
+}]);
+
+diag(Dumper($result->{result}));
+
+$result = $tester->post('blackholegenerator','subsidize_cooldown', [$session_id, $bhg->id]);
+
+diag(Dumper($result->{result}{tasks}));
+1;
+