More test work

.gitignore

@@ -1 +1,2 @@
 *.tar.gz
+.workonrc

t/003_handler.t

@@ -6,12 +6,12 @@ use Dancer qw(config);
 use Dancer::Test;
 use Dancer::Plugin::Tapir;
 
-config->{plugins}{Tapir} = {
-	thrift_idl    => $FindBin::Bin . '/thrift/example.thrift',
-	handler_class => 'MyWebApp::Handler',
-};
+# We're going to redefine methods; let's ignore warnings about it
+$Tapir::Server::Handler::Signatures::ALLOW_REDEFINE = 1;
 
+# Avoid errors with "require MyWebApp::Handler"
 $INC{'MyWebApp/Handler.pm'} = undef;
+
 {
 	package MyWebApp::Handler;
 
@@ -39,7 +39,9 @@ $INC{'MyWebApp/Handler.pm'} = undef;
 	}
 }
 
-setup_thrift_handler;
+setup_thrift_handler
+	thrift_idl    => $FindBin::Bin . '/thrift/example.thrift',
+	handler_class => 'MyWebApp::Handler';
 
 response_status_is [ GET => '/' ], 404, "No root route";
 
@@ -49,4 +51,16 @@ response_status_is [ POST => '/accounts?username=johndoe&password=abc123' ], 200
 
 response_status_is [ GET => '/account/johndoe' ], 500, "GET /account/:username threw error due to invalid set_result() call";
 
+{
+	package MyWebApp::Handler;
+	method getAccount ($username) {
+		$call->set_result({
+			id         => 42,
+			allocation => 1000,
+		});
+	}
+}
+
+response_status_is [ GET => '/account/johndoe' ], 200, "GET /account/:username with valid set_result()";
+
 done_testing;