/[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 3 by dpavlin, Fri Jun 29 09:21:11 2007 UTC revision 4 by dpavlin, Fri Jun 29 09:52:53 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 => 4;  use Test::More tests => 5;
8  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
9  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
10    
# Line 17  $abs_path =~ s!/[^/]*$!/!;     #!fix-vim Line 17  $abs_path =~ s!/[^/]*$!/!;     #!fix-vim
17    
18  ok( EPrints->id( 42 ), 'id' );  ok( EPrints->id( 42 ), 'id' );
19  ok( EPrints->lookup( 'title' ), 'title' );  ok( EPrints->lookup( 'title' ), 'title' );
20    
21    is_deeply( [ EPrints::slogovi( 'otorinolaringolog je duga riječ' ) ],
22            [ qw/0o 1to 2ri 3no 4la 5ri 6ngo 7lo 8g 0je 0du 1ga 0ri 1je 2č/ ],
23            'slogovi' );
24    
Legend:
Removed from v.3  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26