From 8d2048ce009a13bb16a6d9d744f873f8464b22b3 Mon Sep 17 00:00:00 2001
From: Anton Maminov <anton.linux@gmail.com>
Date: Thu, 25 Apr 2024 12:30:07 +0300
Subject: [PATCH] add 1 million files sample

---
 samples/million.cr | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 samples/million.cr

diff --git a/samples/million.cr b/samples/million.cr
new file mode 100644
index 0000000..5635a24
--- /dev/null
+++ b/samples/million.cr
@@ -0,0 +1,24 @@
+# https://github.com/crystal-lang/crystal/issues/14534
+# No error with `Zip64`
+
+require "../src/zip64"
+
+dest = "out.zip"
+ii = 0
+begin
+  File.open(dest, "w") do |zipFile|
+    Zip64::Writer.open(zipFile) do |zip|
+      1000000.times do |i|
+        ii = i
+
+        max = 5 * 1024
+        totalBytes = Random.rand(100..max)
+        zip.add "file#{i}", Random.new.random_bytes(totalBytes)
+      end
+    end
+  end
+rescue e
+  puts "## Failed adding file to zip on loop #{ii}: #{e.message}"
+  puts e.inspect_with_backtrace
+end
+puts "done"