@@ -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.14 f
455394 let result = printVal floatVal
0 commit comments