Commit b8217f26 authored by Mike Jones's avatar Mike Jones 🌶

API build test

parent 75601085
#!/usr/bin/env perl
use strict;
use warnings;
use DDP;
use FindBin;
use Test::Most;
use lib "$FindBin::RealBin/../lib";
use WebService::Mattermost;
my $api = WebService::Mattermost->new({
base_url => '...',
username => '...',
password => '...',
foreach my $name ($api->meta->get_attribute_list) {
my $attr = $api->meta->get_attribute($name);
if ($attr->has_builder) {
can_ok $api, $name;
my $cref = $api->can($name);
next unless $cref;
ok $api->$cref, "Built ${name}";
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment