.txtモジュールのテスト中に実行したい2 つの別々のファイルに格納されたハッシュを生成する Perl コードがありますが、それらをテストに読み込むことができないようです。
組み込みのファイルリーダーを使用してみました: open FILE, 'file.txt',
storable:保存可能なファイルはretrieve('file')どこですかfile
とFile::Slurp: read_file('file.txt').
これらはいずれもテスト ファイル (.t形式) では機能しませんが.pl、同じディレクトリ内の通常のファイルでは機能します。テストで機能させるにはどうすればよいですか? オプションを使用し__DATA__ますが、2 つのファイルがあり、それらは既にハッシュ形式になっているため、そのまま読み込むことができます。
編集：私のコード -
use Data::Dumper;
use File::Slurp;
my $table1 = read_file('tab1.txt');
my $table2 = read_file('tab2.txt');
print Dumper($table1);
print Dumper($table2);
テストファイルの私の出力:
$VAR1 = '';
$VAR1 = '';
とtest.plファイル内に$VAR1あり$VAR2、私が期待するように、「.txt」ファイルの内容とまったく同じです。
EDIT2：
ファイル内にハッシュがあることを忘れていましたが、それは問題ではありませんtest.txt。ランダムな文字列で作成したファイルを読み込もうとしたところ、次のようになりました。
$VAR1 = 'Testing commit - part 12';
これは、別の場所にあるファイルを読み込んでいるため、ファイルが見つからないことを示しているようです。ディレクトリを として含めようとしましたlibが、うまくいきませんでした。