summary refs log tree commit diff
path: root/t/04_apimethod.t
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--t/04_apimethod.t36
1 files changed, 36 insertions, 0 deletions
diff --git a/t/04_apimethod.t b/t/04_apimethod.t
new file mode 100644
index 0000000..cac2715
--- /dev/null
+++ b/t/04_apimethod.t
@@ -0,0 +1,36 @@
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+use MooseX::Net::API::Meta::Method;
+
+dies_ok {
+    MooseX::Net::API::Meta::Method->wrap(
+        name         => 'test_method',
+        package_name => 'test::api',
+        body         => sub {1},
+    );
+}
+"missing some params";
+
+ok my $method = MooseX::Net::API::Meta::Method->wrap(
+    name         => 'test_method',
+    package_name => 'test::api',
+    body         => sub {1},
+    method       => 'GET',
+    path         => '/user/',
+  ),
+  'method created';
+
+is $method->method, 'GET', 'method is GET';
+
+ok $method = MooseX::Net::API::Meta::Method->wrap(
+    name         => 'test_method',
+    package_name => 'test::api',
+    method       => 'GET',
+    path         => '/user/',
+    params       => [qw/name id street/],
+    required     => [qw/name id/],
+);
+
+done_testing;