#!/usr/bin/env perl
use warnings;
use strict;

use Jifty::Test::Dist tests => 11;
use JiftyX::ModelHelpers qw(M);
use Simapp::Model::Book;

{
    my $b = M("Book");
    is( ref($b), "Simapp::Model::Book" );
}

my $good_book_id;
{
    my $b1 = Jifty->app_class(Model => "Book")->new;
    $good_book_id = $b1->create( name => "Good Book A");

    my $b2 = M("Book", name => "Good Book A");
    is( $b2->id, $b1->id );
}

{
    my $b = M("Book", id => $good_book_id);
    is( $b->name, "Good Book A" );
}

{
    my $b = M("BookCollection");
    is( ref($b), "Simapp::Model::BookCollection" );
    is($b->count, 1, "There is one book in the collections so far.");
}

{
    my $b = M("BookCollection", name => "Good Book A");
    is( ref($b), "Simapp::Model::BookCollection" );
    is( $b->count, 1 );
}

{
    my $system_user = Simapp::CurrentUser->superuser;

    my $b = M("Book", { current_user => $system_user });
    my ($id) = $b->create(name => "Book Created by System User");

    ok( $b->current_user->is_superuser );

    ok($id, "Book create returned success");
    ok($b->id, "New Book has valid id set");
    is($b->id, $id, "Create returned the right id");
}