Changeset 2608 in ProjectBuilder

Timestamp:

Apr 7, 2020, 1:12:15 AM (5 years ago)

Author:

Bruno Cornec

Message:

Improve cleanup for tests

Files:

• 0.15.3/pb-modules/t/Conf.t (modified) (1 diff)
• 0.15.3/pb-modules/t/YAML.t (modified) (2 diffs)
• devel/pb-modules/t/Conf.t (modified) (1 diff)
• devel/pb-modules/t/YAML.t (modified) (2 diffs)

0.15.3/pb-modules/t/Conf.t

@@ -71 +71 @@
 is($cnt, $content, "pb_conf_write Test");
 $nt++;
-#unlink("$ENV{'TMPDIR'}/conf.yml");
-#unlink("$ENV{'TMPDIR'}/test.yml");
+unlink("$ENV{'TMPDIR'}/conf.yml");
+unlink("$ENV{'TMPDIR'}/test.yml");
 
 done_testing($nt);

0.15.3/pb-modules/t/YAML.t

@@ -49 +49 @@
 
 my $tab1 = pb_LoadFile("$ENV{'TMPDIR'}/conf1.yml");
-open(FILE,"> $ENV{'TMPDIR'}/conf1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/conf1bis.yml";
-print FILE Dumper($tab1);
-close(FILE);
+#open(FILE,"> $ENV{'TMPDIR'}/conf1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/conf1bis.yml";
+#print FILE Dumper($tab1);
+#close(FILE);
 my $cnt = pb_get_content("$ENV{'TMPDIR'}/conf1.yml");
 my $tab2 = pb_Dump($tab1);
-open(FILE,"> $ENV{'TMPDIR'}/test1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/test1bis.yml";
-print FILE Dumper($tab2);
-close(FILE);
+#open(FILE,"> $ENV{'TMPDIR'}/test1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/test1bis.yml";
+#print FILE Dumper($tab2);
+#close(FILE);
 open(FILE,"> $ENV{'TMPDIR'}/test1.yml") || die "Unable to create $ENV{'TMPDIR'}/test1.yml";
 print FILE "$tab2";
@@ -63 +63 @@
 is($cnt, $content, "pb_DumpFile Test");
 $nt++;
+unlink("$ENV{'TMPDIR'}/conf1.yml");
+unlink("$ENV{'TMPDIR'}/test1.yml");
 
 done_testing($nt);

devel/pb-modules/t/Conf.t

@@ -71 +71 @@
 is($cnt, $content, "pb_conf_write Test");
 $nt++;
-#unlink("$ENV{'TMPDIR'}/conf.yml");
-#unlink("$ENV{'TMPDIR'}/test.yml");
+unlink("$ENV{'TMPDIR'}/conf.yml");
+unlink("$ENV{'TMPDIR'}/test.yml");
 
 done_testing($nt);

devel/pb-modules/t/YAML.t

@@ -49 +49 @@
 
 my $tab1 = pb_LoadFile("$ENV{'TMPDIR'}/conf1.yml");
-open(FILE,"> $ENV{'TMPDIR'}/conf1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/conf1bis.yml";
-print FILE Dumper($tab1);
-close(FILE);
+#open(FILE,"> $ENV{'TMPDIR'}/conf1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/conf1bis.yml";
+#print FILE Dumper($tab1);
+#close(FILE);
 my $cnt = pb_get_content("$ENV{'TMPDIR'}/conf1.yml");
 my $tab2 = pb_Dump($tab1);
-open(FILE,"> $ENV{'TMPDIR'}/test1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/test1bis.yml";
-print FILE Dumper($tab2);
-close(FILE);
+#open(FILE,"> $ENV{'TMPDIR'}/test1bis.yml") || die "Unable to create $ENV{'TMPDIR'}/test1bis.yml";
+#print FILE Dumper($tab2);
+#close(FILE);
 open(FILE,"> $ENV{'TMPDIR'}/test1.yml") || die "Unable to create $ENV{'TMPDIR'}/test1.yml";
 print FILE "$tab2";
@@ -63 +63 @@
 is($cnt, $content, "pb_DumpFile Test");
 $nt++;
+unlink("$ENV{'TMPDIR'}/conf1.yml");
+unlink("$ENV{'TMPDIR'}/test1.yml");
 
 done_testing($nt);