Skip to content

Commit f1488f8

Browse files
authored
Remove tar extraction tests from TestData.fs
Removed tests for extracting tar and tar.gz streams.
1 parent 944f3e0 commit f1488f8

1 file changed

Lines changed: 0 additions & 61 deletions

File tree

tests/Furnace.Tests/TestData.fs

Lines changed: 0 additions & 61 deletions
Original file line numberDiff line numberDiff line change
@@ -373,34 +373,6 @@ type TestData () =
373373

374374
Directory.Delete(tempDir, true)
375375

376-
[<Test>]
377-
member _.TestDataUtilExtractTarStream () =
378-
let tempDir = Path.Join(Path.GetTempPath(), Random.UUID())
379-
Directory.CreateDirectory(tempDir) |> ignore
380-
381-
let testContent = "This is test file content."
382-
let testFileName = "testfile.txt"
383-
384-
let tarData = Array.zeroCreate<byte> 1024
385-
let nameBytes = Encoding.ASCII.GetBytes(testFileName)
386-
Array.blit nameBytes 0 tarData 0 (min nameBytes.Length 100)
387-
388-
let sizeBytes = Encoding.ASCII.GetBytes(sprintf "%011o\000" testContent.Length)
389-
Array.blit sizeBytes 0 tarData 124 (min sizeBytes.Length 12)
390-
391-
let contentBytes = Encoding.ASCII.GetBytes(testContent)
392-
Array.blit contentBytes 0 tarData 512 (min contentBytes.Length (testContent.Length))
393-
394-
use stream = new MemoryStream(tarData)
395-
extractTarStream stream tempDir
396-
397-
let extractedFile = Path.Join(tempDir, testFileName)
398-
Assert.True(File.Exists(extractedFile))
399-
let extractedContent = File.ReadAllText(extractedFile)
400-
Assert.AreEqual(testContent, extractedContent)
401-
402-
Directory.Delete(tempDir, true)
403-
404376
[<Test>]
405377
member _.TestDataUtilExtractTarStreamEmptyHeader () =
406378
let tempDir = Path.Join(Path.GetTempPath(), Random.UUID())
@@ -417,39 +389,6 @@ type TestData () =
417389
Directory.Delete(tempDir, true)
418390

419391
[<Test>]
420-
member _.TestDataUtilExtractTarGz () =
421-
let tempDir = Path.Join(Path.GetTempPath(), Random.UUID())
422-
Directory.CreateDirectory(tempDir) |> ignore
423-
424-
let testContent = "Test file for tar.gz extraction"
425-
let testFileName = "test.txt"
426-
427-
let tarData = Array.zeroCreate<byte> 1024
428-
let nameBytes = Encoding.ASCII.GetBytes(testFileName)
429-
Array.blit nameBytes 0 tarData 0 (min nameBytes.Length 100)
430-
431-
let sizeBytes = Encoding.ASCII.GetBytes(sprintf "%011o\000" testContent.Length)
432-
Array.blit sizeBytes 0 tarData 124 (min sizeBytes.Length 12)
433-
434-
let contentBytes = Encoding.ASCII.GetBytes(testContent)
435-
Array.blit contentBytes 0 tarData 512 (min contentBytes.Length (testContent.Length))
436-
437-
let gzipFile = Path.Join(tempDir, "test.tar.gz")
438-
use fs = File.Create(gzipFile)
439-
use gz = new GZipStream(fs, CompressionMode.Compress)
440-
gz.Write(tarData, 0, tarData.Length)
441-
gz.Close()
442-
fs.Close()
443-
444-
extractTarGz gzipFile tempDir
445-
446-
let extractedFile = Path.Join(tempDir, testFileName)
447-
Assert.True(File.Exists(extractedFile))
448-
let extractedContent = File.ReadAllText(extractedFile)
449-
Assert.AreEqual(testContent, extractedContent)
450-
451-
Directory.Delete(tempDir, true)
452-
[<Test>]
453392
member _.TestDataUtilPrintVal () =
454393
let floatVal = 3.14f
455394
let result = printVal floatVal

0 commit comments

Comments
 (0)