|
|
@@ -0,0 +1,159 @@
|
|
|
+{ Simple libtar test - creates a tar archive with a few entries }
|
|
|
+program libtar_simple_test;
|
|
|
+
|
|
|
+{$mode objfpc}{$H+}
|
|
|
+
|
|
|
+uses
|
|
|
+ SysUtils, libtar;
|
|
|
+
|
|
|
+const
|
|
|
+ TAR_FILENAME = 'simple_test.tar';
|
|
|
+ CONTENT_1 = 'Hello, World!';
|
|
|
+ CONTENT_2 = 'Some data in a subdirectory';
|
|
|
+ CONTENT_3 = 'hello.txt';
|
|
|
+ CONTENT_4 = 'hello.txt';
|
|
|
+
|
|
|
+ TotalEntries = 4;
|
|
|
+
|
|
|
+var
|
|
|
+ TW: TTarWriter;
|
|
|
+ TA: TTarArchive;
|
|
|
+ DirRec: TTarDirRec;
|
|
|
+ Content: RawByteString;
|
|
|
+ EntryCount: Integer;
|
|
|
+ Errors: Integer;
|
|
|
+begin
|
|
|
+ Errors := 0;
|
|
|
+
|
|
|
+ WriteLn('Creating tar archive: ', TAR_FILENAME);
|
|
|
+
|
|
|
+ try
|
|
|
+ TW := TTarWriter.Create(TAR_FILENAME);
|
|
|
+ try
|
|
|
+ { Set default permissions }
|
|
|
+ TW.Permissions := [tpReadByOwner, tpWriteByOwner, tpReadByGroup, tpReadByOther];
|
|
|
+
|
|
|
+ { Add a simple text file }
|
|
|
+ WriteLn(' Adding: hello.txt');
|
|
|
+ TW.AddString(CONTENT_1, 'hello.txt', Now);
|
|
|
+
|
|
|
+ { Add a file in a subdirectory }
|
|
|
+ WriteLn(' Adding: subdir/data.txt');
|
|
|
+ TW.AddString(CONTENT_2, 'subdir/data.txt', Now);
|
|
|
+
|
|
|
+ { Add a directory entry }
|
|
|
+ WriteLn(' Adding: emptydir/');
|
|
|
+ TW.AddDir(CONTENT_4, Now);
|
|
|
+
|
|
|
+ { Add a symbolic link }
|
|
|
+ WriteLn(' Adding: link.txt -> hello.txt');
|
|
|
+ TW.AddSymbolicLink('link.txt', CONTENT_3, Now);
|
|
|
+
|
|
|
+ TW.Finalize;
|
|
|
+ finally
|
|
|
+ TW.Free;
|
|
|
+ end;
|
|
|
+
|
|
|
+ WriteLn('Done. Archive created successfully.');
|
|
|
+ WriteLn;
|
|
|
+
|
|
|
+ WriteLn('=== Reading and verifying archive ===');
|
|
|
+ WriteLn;
|
|
|
+
|
|
|
+ TA := TTarArchive.Create(TAR_FILENAME);
|
|
|
+ try
|
|
|
+ EntryCount := 0;
|
|
|
+
|
|
|
+ while TA.FindNext(DirRec) do
|
|
|
+ begin
|
|
|
+ Inc(EntryCount);
|
|
|
+ WriteLn('Entry ', EntryCount, ':');
|
|
|
+ WriteLn(' Name: ', DirRec.Name);
|
|
|
+ WriteLn(' Size: ', DirRec.Size);
|
|
|
+ WriteLn(' Type: ', FILETYPE_NAME[DirRec.FileType]);
|
|
|
+
|
|
|
+ if DirRec.FileType = ftSymbolicLink then
|
|
|
+ begin
|
|
|
+ if DirRec.LinkName <> CONTENT_3 then
|
|
|
+ begin
|
|
|
+ Inc(Errors);
|
|
|
+ writeln(' Wrong link value');
|
|
|
+ end;
|
|
|
+ WriteLn(' Link: -> ', DirRec.LinkName);
|
|
|
+ end;
|
|
|
+
|
|
|
+ if DirRec.FileType = ftDirectory then
|
|
|
+ begin
|
|
|
+ if DirRec.Name <> CONTENT_4 then
|
|
|
+ begin
|
|
|
+ Inc(Errors);
|
|
|
+ writeln(' Wrong directory Name');
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if DirRec.ChecksumOK then
|
|
|
+ WriteLn(' Checksum: OK')
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ WriteLn(' Checksum: FAILED');
|
|
|
+ Inc(Errors);
|
|
|
+ end;
|
|
|
+
|
|
|
+ { Verify content for regular files }
|
|
|
+ if DirRec.FileType = ftNormal then
|
|
|
+ begin
|
|
|
+ Content := TA.ReadFile;
|
|
|
+
|
|
|
+ if DirRec.Name = 'hello.txt' then
|
|
|
+ begin
|
|
|
+ if Content = CONTENT_1 then
|
|
|
+ WriteLn(' Content: verified OK')
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ WriteLn(' Content: MISMATCH');
|
|
|
+ Inc(Errors);
|
|
|
+ end;
|
|
|
+ end
|
|
|
+ else if DirRec.Name = 'subdir/data.txt' then
|
|
|
+ begin
|
|
|
+ if Content = CONTENT_2 then
|
|
|
+ WriteLn(' Content: verified OK')
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ WriteLn(' Content: MISMATCH');
|
|
|
+ Inc(Errors);
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+
|
|
|
+ WriteLn;
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ TA.Free;
|
|
|
+ end;
|
|
|
+
|
|
|
+ { === PART 3: Summary === }
|
|
|
+ WriteLn('=== Summary ===');
|
|
|
+ WriteLn;
|
|
|
+ WriteLn('Total entries: ', EntryCount);
|
|
|
+
|
|
|
+ if EntryCount <> TotalEntries then
|
|
|
+ begin
|
|
|
+ WriteLn('ERROR: Expected ',TotalEntries,' entries!');
|
|
|
+ Inc(Errors);
|
|
|
+ end;
|
|
|
+
|
|
|
+ if Errors = 0 then
|
|
|
+ WriteLn('All tests PASSED.')
|
|
|
+ else
|
|
|
+ WriteLn('FAILED with ', Errors, ' error(s).');
|
|
|
+
|
|
|
+ WriteLn;
|
|
|
+
|
|
|
+ finally
|
|
|
+ { Cleanup }
|
|
|
+ DeleteFile(TAR_FILENAME);
|
|
|
+ end;
|
|
|
+
|
|
|
+ Halt(Errors);
|
|
|
+end.
|
florian