The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use Test::Mojo;
use Test::More;
use Mojolicious::Lite;
use Mojo::JSON;
use Data::Dumper;
use utf8;

use lib '../lib';

my $t = Test::Mojo->new;

my $app = $t->app;

$app->mode('production');

$app->plugin(Piwik => {
  url => 'sojolicio.us/piwik'
});

like($app->piwik_tag, qr{'://sojolicio.us/piwik/'}, 'URL');
like($app->piwik_tag, qr{setSiteId',1}, 'SiteId');

like($app->piwik_tag(2), qr{'://sojolicio.us/piwik/'}, 'URL');
like($app->piwik_tag(2), qr{setSiteId',2}, 'SiteId');

like($app->piwik_tag(
  2 => 'http://sojolicio.us/piwik/piwik.php'
), qr{'://sojolicio.us/piwik/'}, 'URL');
like($app->piwik_tag(
  2 => 'http://sojolicio.us/piwik/piwik.php'
), qr{setSiteId',2}, 'SiteId');

like($app->piwik_tag(
  3 => 'https://sojolicio.us/piwik/piwik.js'
), qr{'://sojolicio.us/piwik/'}, 'URL');
like($app->piwik_tag(
  3 => 'http://sojolicio.us/piwik/piwik.js'
), qr{setSiteId',3}, 'SiteId');

like($app->piwik_tag(
  4 => 'sojolicio.us/piwik'
), qr{'://sojolicio.us/piwik/'}, 'URL');
like($app->piwik_tag(
  4 => 'sojolicio.us/piwik'
), qr{setSiteId',4}, 'SiteId');

$app->mode('development');

$app->plugin('Piwik' => {
  url => 'sojolicio.us/piwik'
});

ok(!$app->piwik_tag, 'Development mode');



done_testing;