make all the perl tests pass after moving perl folder to languages/

bruceravel · bruceravel · commit 3392bd334d97 · 2015-05-06T15:57:17.000-04:00
diff --git a/languages/perl/t/00_base.t b/languages/perl/t/00_base.t
@@ -15,7 +15,7 @@ BEGIN { use_ok('Xray::XDIFile') };
 
 my $errcode = 0;
 my $here    = dirname($0);
-my $file    = File::Spec->catfile($here, '..', '..', 'data', 'co_metal_rt.xdi');
+my $file    = File::Spec->catfile($here, '..', '..', '..', 'data', 'co_metal_rt.xdi');
 my $xdifile = Xray::XDIFile->new($file, $errcode);
 ok($errcode == 0,                              'error code = 0');
 ok($xdifile =~ m{Xray::XDIFile},               'created Xray::XDIFile object');
diff --git a/languages/perl/t/01_moose_nonmoose.t b/languages/perl/t/01_moose_nonmoose.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', 'data', 'co_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'co_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 ok($xdi =~ m{Xray::XDI},                           'created Xray::XDI object');
 ok(($xdi->errorcode == 0),                         'errorcode 0');
diff --git a/languages/perl/t/02_moosish.t b/languages/perl/t/02_moosish.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', 'data', 'co_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'co_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                           'file imported properly');
diff --git a/languages/perl/t/03_nofile.t b/languages/perl/t/03_nofile.t
@@ -12,11 +12,11 @@ use File::Spec;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', 'data', 'co_metal_rt.xdiX');
+my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'co_metal_rt.xdiX');
 my $xdi  = Xray::XDI->new(file=>$file);
 ok($xdi->errormessage =~ m{does not exist},                        'file not exist');
 
-$file = File::Spec->catfile($here, '..', '..', 'data');
+$file = File::Spec->catfile($here, '..', '..', '..', 'data');
 $xdi  = Xray::XDI->new(file=>$file);
 ok($xdi->errormessage =~ m{is a folder},                           'is a folder');
 
diff --git a/languages/perl/t/baddata/01_no_xdi_line.t b/languages/perl/t/baddata/01_no_xdi_line.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_01.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_01.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 #my $xdi  = Xray::XDI->new;
 #$xdi->file($file);
diff --git a/languages/perl/t/baddata/02_no_edge.t b/languages/perl/t/baddata/02_no_edge.t
@@ -14,15 +14,15 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_02.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_02.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->required;
 ok(($xdi->errorcode>0), 'bad_02.xdi flagged with a warning');
 ok(($xdi->errormessage =~ m{Element.edge missing}), 'correctly identified missing edge symbol');
 
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_04.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_04.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->required;
diff --git a/languages/perl/t/baddata/03_no_symbol.t b/languages/perl/t/baddata/03_no_symbol.t
@@ -14,14 +14,14 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_03.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_03.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->required;
 ok(($xdi->errorcode>0), 'bad_03.xdi flagged with a warning');
 ok(($xdi->errormessage =~ m{Element.symbol missing}), 'correctly identified missing element symbol');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_05.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_05.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->required;
diff --git a/languages/perl/t/baddata/06_no_minus_signs.t b/languages/perl/t/baddata/06_no_minus_signs.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_06.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_06.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode>0), 'bad_06.xdi flagged with warning');
diff --git a/languages/perl/t/baddata/07_columns.t b/languages/perl/t/baddata/07_columns.t
@@ -12,28 +12,28 @@ use File::Spec;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_07.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_07.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->recommended;
 ok(($xdi->errorcode>1), 'bad_07.xdi flagged as ok');
 ok(($xdi->errormessage =~ m{Column.1}), 'no column labels');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_08.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_08.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->recommended;
 ok(($xdi->errorcode == 0), 'bad_08.xdi flagged as ok');
 ok(($xdi->errormessage =~ m{\A\s*\z}), 'to few column labels');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_09.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_09.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->recommended;
 ok(($xdi->errorcode == 0), 'bad_09.xdi flagged as ok');
 ok(($xdi->errormessage =~ m{\A\s*\z}), 'to many column labels');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_10.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_10.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->recommended;
diff --git a/languages/perl/t/baddata/11_bad_comment_char.t b/languages/perl/t/baddata/11_bad_comment_char.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_11.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_11.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode>0), 'bad_11.xdi flagged with warning on import');
diff --git a/languages/perl/t/baddata/12_no_dspacing.t b/languages/perl/t/baddata/12_no_dspacing.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_12.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_12.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode>0), 'bad_12.xdi flagged as ok');
diff --git a/languages/perl/t/baddata/13_inconsistent_columns.t b/languages/perl/t/baddata/13_inconsistent_columns.t
@@ -14,13 +14,13 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_13.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_13.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_13.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{number of columns changes}), 'correctly identified too few columns');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_14.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_14.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_14.xdi flagged as failing to import');
diff --git a/languages/perl/t/baddata/15_nonnumeric.t b/languages/perl/t/baddata/15_nonnumeric.t
@@ -14,19 +14,19 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_15.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_15.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_15.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{non-numeric value}), 'correctly identified NaN as a problem');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_16.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_16.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_16.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{non-numeric value}), 'correctly identified string as a problem');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_17.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_17.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_17.xdi flagged as failing to import');
diff --git a/languages/perl/t/baddata/18_headers.t b/languages/perl/t/baddata/18_headers.t
@@ -12,44 +12,44 @@ use File::Spec;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_18.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_18.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_18.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{not formatted as}), 'correctly identified Family.Key -- no value');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_19.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_19.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_19.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{not formatted as}), 'correctly identified Family.Key -- no colon');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_20.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_20.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_20.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{not formatted as}), 'correctly identified Family.Key -- two colons');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_21.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_21.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_21.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{not formatted as}), 'correctly identified Family.Key -- no dot');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_22.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_22.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_22.xdi flagged as failing to import');
 ok(($xdi->errormessage =~ m{invalid keyword name}), 'correctly identified Family.Key -- two dots');
 
-# $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_23.xdi');
+# $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_23.xdi');
 # $xdi  = Xray::XDI->new(file=>$file);
 
 # ok(($xdi->errorcode==0), 'bad_23.xdi flagged as ok');
 # ok(($xdi->errormessage), 'correctly identified Family.Key -- key starts with number');
 
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_24.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_24.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode<0), 'bad_24.xdi flagged as failing to import');
diff --git a/languages/perl/t/baddata/25_things_missing.t b/languages/perl/t/baddata/25_things_missing.t
@@ -12,20 +12,20 @@ use File::Spec;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_25.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_25.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode == 0), 'bad_25.xdi flagged as ok');
 $xdi->validate('GSE', 'EXTRA', $xdi->metadata->{GSE}->{EXTRA});
 ok(($xdi->errormessage =~ m{extension field used without}), 'missing extra version');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_26.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_26.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode==0), 'bad_26.xdi flagged as ok');
 ok(($xdi->comments =~ m{\A\s*\z}), 'missing user comments');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_27.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_27.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode==0), 'bad_27.xdi flagged as ok');
diff --git a/languages/perl/t/baddata/28_datatime.t b/languages/perl/t/baddata/28_datatime.t
@@ -12,14 +12,14 @@ use File::Spec;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_28.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_28.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode == 0), 'bad_28.xdi imports ok');
 $xdi->validate('Scan', 'start_time', $xdi->metadata->{Scan}->{start_time});
 ok(($xdi->errormessage =~ m{invalid timestamp}), 'correctly identified invalid timestamp format');
 
-$file = File::Spec->catfile($here, '..', '..', '..', 'baddata', 'bad_29.xdi');
+$file = File::Spec->catfile($here, '..', '..', '..', '..', 'baddata', 'bad_29.xdi');
 $xdi  = Xray::XDI->new(file=>$file);
 
 ok(($xdi->errorcode == 0), 'bad_29.xdi imports ok');
diff --git a/languages/perl/t/gooddata/01_cu_metal_10k.t b/languages/perl/t/gooddata/01_cu_metal_10k.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'cu_metal_10K.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'cu_metal_10K.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/02_cu_metal_rt.t b/languages/perl/t/gooddata/02_cu_metal_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'cu_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'cu_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/03_fe2o3.t b/languages/perl/t/gooddata/03_fe2o3.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'fe2o3_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'fe2o3_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/04_fe3c_rt.t b/languages/perl/t/gooddata/04_fe3c_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'fe3c_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'fe3c_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/05_fe_metal_rt.t b/languages/perl/t/gooddata/05_fe_metal_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'fe_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'fe_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/06_fen_rt.t b/languages/perl/t/gooddata/06_fen_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'fen_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'fen_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/07_feo_rt1.t b/languages/perl/t/gooddata/07_feo_rt1.t
@@ -15,7 +15,7 @@ BEGIN { use_ok('Xray::XDI') };
 
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'feo_rt1.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'feo_rt1.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 ok($xdi->errorcode == 0,                                          'file imported properly');
 
diff --git a/languages/perl/t/gooddata/08_ni_metal_rt.t b/languages/perl/t/gooddata/08_ni_metal_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'ni_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'ni_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/09_pt_metal_rt.t b/languages/perl/t/gooddata/09_pt_metal_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'pt_metal_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'pt_metal_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/10_se_na2so4_rt.t b/languages/perl/t/gooddata/10_se_na2so4_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'se_na2so4_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'se_na2so4_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/11_se_znse_rt.t b/languages/perl/t/gooddata/11_se_znse_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'se_znse_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'se_znse_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/gooddata/12_zn_na2so4_rt.t b/languages/perl/t/gooddata/12_zn_na2so4_rt.t
@@ -14,7 +14,7 @@ my $epsi = 0.001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'zn_znse_rt.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'zn_znse_rt.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 ok($xdi->errorcode == 0,                                          'file imported properly');
diff --git a/languages/perl/t/writer/01_pp.t b/languages/perl/t/writer/01_pp.t
@@ -17,7 +17,7 @@ my $epsi = 0.0001;
 BEGIN { use_ok('Xray::XDI') };
 
 my $here = dirname($0);
-my $file = File::Spec->catfile($here, '..', '..', '..', 'data', 'cu_metal_10K.xdi');
+my $file = File::Spec->catfile($here, '..', '..', '..', '..', 'data', 'cu_metal_10K.xdi');
 my $xdi  = Xray::XDI->new(file=>$file);
 
 $xdi->export('foo.xdi');
