jsonapi.t

use 5.026;
use DBIx::RunSQL;
use DBIx::Class::Schema::Loader 'make_schema_at';

BEGIN {
my $sql = <<'SQL';
BEGIN;

CREATE TABLE request (
  id      INTEGER NOT NULL,
  email   TEXT    NOT NULL,
  created TEXT    NOT NULL
);

COMMIT;
SQL
my $test_dbh = DBIx::RunSQL->create(
    dsn     => 'dbi:SQLite:dbname=:memory:',
    sql     => \$sql,
    force   => 1,
    # verbose => 1,
);

make_schema_at( 'MyApp::Schema',
    {
        components => [ 'InflateColumn::DateTime', 'TimeStamp' ],
        # debug => 1,
        dump_directory => './lib' ,
    },
    [ sub { $test_dbh }, { unsafe => 1 } ]
);
}

use JSONAPI::Document;
use Test::DBIx::Class { schema_class => 'MyApp::Schema' };
use Test::Most;

my $jsonapi = new_ok 'JSONAPI::Document', [ api_url => 'http://example.com/api' ];
my $schema  = Schema;

$schema->resultset('Request')->create(
    {
        id      => 1,
        email   => 'me@home.com',
        created => 'now',
    },
);

cmp_deeply(
    $jsonapi->resource_documents( $schema->resultset('Request') ),
    {
        data => [
            {
                attributes => ignore,
                id => 1,
                type => 'requests',
            },
        ],
    },
    'data is as expected',
);

done_testing;