#!/usr/bin/perl
# ==============================================================================
#
# Eidolon
# Copyright (c) 2009, Atma 7
# ---
# t/core/registry.t - registry tests
#
# ==============================================================================
use Test::More tests => 6;
use warnings;
use strict;
# ------------------------------------------------------------------------------
# BEGIN()
# test initialization
# ------------------------------------------------------------------------------
BEGIN
{
use_ok("Eidolon::Core::Registry");
}
# methods
ok( Eidolon::Core::Registry->can("get_instance"), "get_instance method" );
ok( Eidolon::Core::Registry->can("free"), "free method" );
# accessors
ok( Eidolon::Core::Registry->can("cgi"), "cgi accessor" );
ok( Eidolon::Core::Registry->can("config"), "config accessor" );
ok( Eidolon::Core::Registry->can("loader"), "loader accessor" );