#!/usr/local/bin/perl -w
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl access.t'
##################### We start with some black magic to print on failure.
use strict;
use warnings;
use Test::More tests => 5;
use UMLS::Interface;
use File::Spec;
use File::Path;
if(!(-d "t")) {
print STDERR "Error - program must be run from UMLS::Similarity\n";
print STDERR "directory as : perl t/lesk.t \n";
exit;
}
# initialize option hash
my %option_hash = ();
# set the option hash
$option_hash{"realtime"} = 1;
$option_hash{"t"} = 1;
# connect to the UMLS-Interface
my $umls = UMLS::Interface->new(\%option_hash);
ok($umls);
# get the version of umls that is being used
my $version = $umls->version();
# set the key directory (create it if it doesn't exist)
my $keydir = File::Spec->catfile('t','key', $version);
if(! (-e $keydir) ) {
mkpath($keydir);
}
my $perl = $^X;
my $util_prg = File::Spec->catfile('utils', 'umls-similarity.pl');
my $measure = "path";
my $configfile = "rel-config.fma.par-chd";
my $keyfile = "error.sab.rel";
my $config = File::Spec->catfile('t','config', $configfile);
my $key = File::Spec->catfile('t', 'key', $version, $keyfile);
my $output = `$perl $util_prg --realtime --config $config --measure $measure arm foot 2>&1`;
if(-e $key) {
ok (open KEY, $key) or diag "Could not open $key: $!";
my $key = "";
while(<KEY>) { $key .= $_; } close KEY;
cmp_ok($output, 'eq', $key);
}
else {
ok(open KEY, ">$key") || diag "Could not open $key: $!";
print KEY $output;
close KEY;
SKIP: {
skip ("Generating key, no need to run test", 1);
}
}
$measure = "lesk";
$configfile = "config.fma.par-chd";
$keyfile = "error.sabdef.reldef";
$config = File::Spec->catfile('t','config', $configfile);
$key = File::Spec->catfile('t', 'key', $version, $keyfile);
$output = `$perl $util_prg --config $config --measure $measure arm foot 2>&1`;
if(-e $key) {
ok (open KEY, $key) or diag "Could not open $key: $!";
my $key = "";
while(<KEY>) { $key .= $_; } close KEY;
cmp_ok($output, 'eq', $key);
}
else {
ok(open KEY, ">$key") || diag "Could not open $key: $!";
print KEY $output;
close KEY;
SKIP: {
skip ("Generating key, no need to run test", 1);
}
}