oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

check part1, part2 and file path when caseInsensitiveOS=1

Browse source
This commit is contained in:
Colin Kuskie 2007-07-05 23:09:25 +00:00
parent 6e49327bb6
commit 2a39d6a828
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
t/Storage.t
View file

@ -49,7 +49,7 @@ my $extensionTests = [
},
];
plan tests => 67 + scalar @{ $extensionTests }; # increment this value for each test you create
plan tests => 70 + scalar @{ $extensionTests }; # increment this value for each test you create
my $session = WebGUI::Test->session;
@ -350,11 +350,10 @@ isnt($hexStorage->getId, $hexStorage->getFileId, 'getId != getFileId when caseIn
is($session->id->toHex($hexStorage->getId), $hexStorage->getFileId, 'Hex value of GUID calculated correctly');
my ($hexValue) = $session->db->quickArray('select hexValue,guidValue from storageTranslation where guidValue=?',[$hexStorage->getId]);
is($hexStorage->getFileId, $hexValue, 'hexValue cached in the storageTranslation table');
diag $hexStorage->getId;
diag $hexStorage->{_id};
diag $hexStorage->{_part1};
diag $hexStorage->{_part2};
diag $hexStorage->getFileId;
my ($part1, $part2) = unpack "A2A2A*", $hexStorage->getFileId; #fancy m/(..)(..)/;
is ($hexStorage->{_part1}, $part1, 'Storage part1 uses hexId');
is ($hexStorage->{_part2}, $part2, 'Storage part2 uses hexId, too');
like ($hexStorage->getPath, qr/$hexValue/, 'Storage path uses hexId');
$session->config->set('caseInsensitiveOS', 0);