Lines Matching refs:expect
20 my $expect;
52 $expect = "@expectossldir";
54 $expect =~ s/HKEY_LOCAL_MACHINE.*\n*//;
55 $expect =~ s/\n//g;
56 $expect =~ s/.*REG_EXPAND_SZ *//;
57 $expect =~ s/ .*$//;
60 ok(grep(/$expect/,$actual), "Confirming version output for openssldir from registry");
64 $expect = "@expectengdir";
66 $expect =~ s/HKEY_LOCAL_MACHINE.*\n*//;
67 $expect =~ s/\n//g;
68 $expect =~ s/.*REG_EXPAND_SZ *//;
69 $expect =~ s/ .*$//;
72 ok(grep(/$expect/, $actual) == 1, "Confirming version output for enginesdir from registry");
76 $expect = "@expectmoddir";
78 $expect =~ s/HKEY_LOCAL_MACHINE.*\n*//;
79 $expect =~ s/\n//g;
80 $expect =~ s/.*REG_EXPAND_SZ *//;
81 $expect =~ s/ .*$//;
83 ok(grep(/$expect/, $actual) == 1, "Confirming version output for modulesdir from registry");
