/[Semantic-Engine]/EPrints/t/EPrints.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /EPrints/t/EPrints.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by dpavlin, Fri Jun 29 14:52:44 2007 UTC revision 12 by dpavlin, Fri Jun 29 17:03:54 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4    
5  my $debug = shift @ARGV;  my $debug = shift @ARGV;
6    
7  use Test::More tests => 5;  use Test::More tests => 8;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10    
# Line 20  ok( EPrints->lookup( 'title' ), 'title' Line 20  ok( EPrints->lookup( 'title' ), 'title'
20    
21  ok( my $slogovi = EPrints::slogovi( 'otorinolaringolog je duga riječ' ), 'slogovi' );  ok( my $slogovi = EPrints::slogovi( 'otorinolaringolog je duga riječ' ), 'slogovi' );
22    
23  diag "slogovi: $slogovi";  diag "slogovi: $slogovi" if $debug;
24    
25    ok( my ($type,$uri) = EPrints->fulltext, 'fulltext' );
26    
27    cmp_ok( $type, 'eq', 'pdf', 'fulltext type' );
28    like( $uri, qr!^http://!, 'fulltext uri' );
29    
30    diag "type: $type uri: $uri" if $debug;
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26