From f3519e068f7f3594555475a23f2ada175231d50f Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Mon, 27 Jan 2003 10:29:45 +0100
Subject: [PATCH] some more test: read with sscanf %<n>c of various sizes (16,
32 and 128 bits = 2, 4 and 16 bytes)
Rev: lib/modules/Tools.pmod/Shoot.pmod/BinaryData4.pike:1.1
Rev: lib/modules/Tools.pmod/Shoot.pmod/BinaryData5.pike:1.1
Rev: lib/modules/Tools.pmod/Shoot.pmod/BinaryData7.pike:1.1
---
.../Tools.pmod/Shoot.pmod/BinaryData4.pike | 15 +++++++++++++++
.../Tools.pmod/Shoot.pmod/BinaryData5.pike | 15 +++++++++++++++
.../Tools.pmod/Shoot.pmod/BinaryData7.pike | 15 +++++++++++++++
3 files changed, 45 insertions(+)
create mode 100644 lib/modules/Tools.pmod/Shoot.pmod/BinaryData4.pike
create mode 100644 lib/modules/Tools.pmod/Shoot.pmod/BinaryData5.pike
create mode 100644 lib/modules/Tools.pmod/Shoot.pmod/BinaryData7.pike
diff --git a/lib/modules/Tools.pmod/Shoot.pmod/BinaryData4.pike b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData4.pike
new file mode 100644
index 0000000000..4366fa2809
--- /dev/null
+++ b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData4.pike
@@ -0,0 +1,15 @@
+inherit Tools.Shoot.Test;
+
+constant name="Read binary INT16";
+
+int n = 10000;
+
+void perform()
+{
+ array_sscanf(Crypto.randomness.pike_random()->read(2*n),"%2c"*n);
+}
+
+string present_n(int ntot,int nruns,float tseconds,float useconds,int memusage)
+{
+ return sprintf("%.0f/s",ntot/useconds);
+}
diff --git a/lib/modules/Tools.pmod/Shoot.pmod/BinaryData5.pike b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData5.pike
new file mode 100644
index 0000000000..cd7454283a
--- /dev/null
+++ b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData5.pike
@@ -0,0 +1,15 @@
+inherit Tools.Shoot.Test;
+
+constant name="Read binary INT32";
+
+int n = 10000;
+
+void perform()
+{
+ array_sscanf(Crypto.randomness.pike_random()->read(4*n),"%4c"*n);
+}
+
+string present_n(int ntot,int nruns,float tseconds,float useconds,int memusage)
+{
+ return sprintf("%.0f/s",ntot/useconds);
+}
diff --git a/lib/modules/Tools.pmod/Shoot.pmod/BinaryData7.pike b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData7.pike
new file mode 100644
index 0000000000..e72b149b57
--- /dev/null
+++ b/lib/modules/Tools.pmod/Shoot.pmod/BinaryData7.pike
@@ -0,0 +1,15 @@
+inherit Tools.Shoot.Test;
+
+constant name="Read binary INT128";
+
+int n = 10000;
+
+void perform()
+{
+ array_sscanf(Crypto.randomness.pike_random()->read(16*n),"%16c"*n);
+}
+
+string present_n(int ntot,int nruns,float tseconds,float useconds,int memusage)
+{
+ return sprintf("%.0f/s",ntot/useconds);
+}
--
GitLab