From 58b63a9f16c26e5cd3208bea8a84ad87cffd2dbd Mon Sep 17 00:00:00 2001
From: belliash <belliash@codingworkshop.eu.org>
Date: Mon, 8 Apr 2019 08:57:45 +0200
Subject: [PATCH] Another simple test.

---
 tests/bin_format.aer | 17 +++++++++++++++++
 tests/bin_format.exp |  1 +
 2 files changed, 18 insertions(+)
 create mode 100644 tests/bin_format.aer
 create mode 100644 tests/bin_format.exp

diff --git a/tests/bin_format.aer b/tests/bin_format.aer
new file mode 100644
index 0000000..5157ec8
--- /dev/null
+++ b/tests/bin_format.aer
@@ -0,0 +1,17 @@
+class Program {
+
+	string fmt_binary(int $x, int $numbits = 8) {
+		string $bin;
+		string $rtnval = '';
+		$bin = decbin($x);
+		$bin = substr(str_repeat(0, $numbits), 0, $numbits - strlen($bin)) + $bin;
+		for($x = 0; $x < $numbits / 4; $x++) {
+			$rtnval += ' ' + substr($bin, $x * 4, 4);
+		}
+		return ltrim($rtnval);
+	}
+
+	void main() {
+		var_dump($this->fmt_binary(2541));
+	}
+}
diff --git a/tests/bin_format.exp b/tests/bin_format.exp
new file mode 100644
index 0000000..78a4b4b
--- /dev/null
+++ b/tests/bin_format.exp
@@ -0,0 +1 @@
+string(9 '0000 1001')