#!perl
use strict;
use warnings;
use Test::More 'no_plan';
use lib 't/lib';
BEGIN { use_ok("Rubric::Config", 't/config/rubric.yml'); }
BEGIN { use_ok("Rubric::WebApp::URI"); }
my $uri = 'Rubric::WebApp::URI';
my $root = $uri->root;
is(
$root,
"http://localhost:8080",
"our root is what we said",
);
is($uri->stylesheet, 'http://localhost:8080/style/rubric.css', "css uri");
is($uri->login, "$root/login", "login uri");
is($uri->logout, "$root/logout", "logout uri");
is($uri->reset_password, "$root/reset_password", "password reset uri");
# my ($user) = Rubric::User->retrieve_all; # any user will do
# XXX write! more! tests! -- rjbs, 2006-02-13