#!/usr/bin/env perl

use warnings;
use strict;

use Test::More skip_all => 'Not written yet';
use_ok('Jifty::Dispatcher');
use_ok('Jifty');
ok(Jifty->new(no_handle => 1));
my $d = Jifty::Dispatcher->new();

can_ok($d,'on');


ok(Jifty::Dispatcher::on( condition => sub { 1 }, action => sub {2}, priority => 25));
my @entries = Jifty->handler->dispatcher->entries();
is (scalar @entries, 1);
is (&{$entries[0]->{condition}},1);
is (&{$entries[0]->{action}},2);

ok(Jifty::Dispatcher::on( condition => sub { 1 }, action => sub {2}, priority => 25));
@entries = Jifty->handler->dispatcher->entries();
is (scalar @entries, 2);

eval 'package Jifty::Dispatcher;  on url "foo", run { qq{xxx} }; ';

ok(!$@, $@);
@entries = Jifty->handler->dispatcher->entries();

is (scalar @entries, 3);