Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
39 lines (32 sloc) 762 Bytes
use strict;
use warnings;
use Test::More qw(no_plan);
use Test::NoWarnings;
use t_live::lib::Utils;
my $mixi = login_to('view_bbs.pl');
my $rules = {
subject => 'string',
name => 'string',
description => 'string',
time => 'datetime',
name_link => 'uri',
link => 'uri_if_remote',
comments => {
subject => 'string',
name => 'string',
name_link => 'uri',
description => 'string',
time => 'datetime',
link => 'uri_if_remote',
},
images => {
link => 'uri',
thumb_link => 'uri',
},
};
date_format('%Y-%m-%d %H:%M');
run_tests('view_bbs') or ok 1, 'skipped: no tests';
sub test {
my $bbs = $mixi->view_bbs->parse(@_);
matches( $bbs => $rules );
}
Something went wrong with that request. Please try again.