#!perl

BEGIN {
  unless ($ENV{RELEASE_TESTING}) {
    require Test::More;
    Test::More::plan(skip_all => 'these tests are for release candidate testing');
  }
}


use Mojolicious::Lite;
use Test::More tests => 5;
use Test::Mojo;

app->log->level('fatal');

plugin 'write_excel';

my $data =
  [[qw(Zak B. Elep)], [qw(Joel T Tanangonan)], [qw(Jerome S Gotangco)]];

get '/demo.xls' => sub {
  shift->render_xls(result => $data);
};

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

$t->get_ok('/demo.xls')->status_is(200)
  ->content_like(qr/Zak/,    "Zak's in the spreadsheet")
  ->content_like(qr/Joel/,   "Joel's in the spreadsheet")
  ->content_like(qr/Jerome/, "Jerome's in the spreadsheet");