Browse Source

Added some tests.

Mark Sibly 9 years ago
parent
commit
2aa3e968b6

BIN
modules/std/misc/tests/assets/test_zip.zip


+ 21 - 0
modules/std/misc/tests/zipfile_test.monkey2

@@ -0,0 +1,21 @@
+
+#Import "assets/test_zip.zip"
+
+#Import "<std>"
+
+Using std..
+
+Function Main()
+
+	Local zip:=ZipFile.Open( "asset::test_zip.zip" )
+	
+	For Local file:=Eachin zip.Files
+		Print file
+	Next
+	
+	If Not zip.Extract( DesktopDir() ) Print "Failed to extract ZIP"
+	
+	zip.Close()
+	
+End
+