From a59fa7a2c9a755d4a63911a67771080cb5185066 Mon Sep 17 00:00:00 2001
From: Clemens Schwaighofer <clemens.schwaighofer@egplusww.com>
Date: Tue, 3 Sep 2024 12:08:37 +0900
Subject: [PATCH] Admin tests update

---
 www/admin/class_test.html.php   | 6 ++++--
 www/admin/class_test.system.php | 4 +++-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/www/admin/class_test.html.php b/www/admin/class_test.html.php
index 68839e0d..824d662a 100644
--- a/www/admin/class_test.html.php
+++ b/www/admin/class_test.html.php
@@ -68,8 +68,10 @@ $checked_list = [
 	['foo', ['bar']],
 ];
 foreach ($checked_list as $check) {
-	print "CHECKED(0): $check[0]: " . Html::checked($check[1], $check[0]) . "<br>";
-	print "CHECKED(1): $check[0]: " . Html::checked($check[1], $check[0], Html::CHECKED) . "<br>";
+	print "CHECKED(0): " . $check[0] . " -> " . print_r($check[1], true) . ": "
+		. Html::checked($check[1], $check[0]) . "<br>";
+	print "CHECKED(1): " . $check[0] . " -> " . print_r($check[1], true) . ": "
+		. Html::checked($check[1], $check[0], Html::CHECKED) . "<br>";
 }
 
 // magic link creation test
diff --git a/www/admin/class_test.system.php b/www/admin/class_test.system.php
index 86c0fd3b..f59a68a1 100644
--- a/www/admin/class_test.system.php
+++ b/www/admin/class_test.system.php
@@ -41,7 +41,7 @@ print "GETPAGENAME(0): " . System::getPageName() . "<br>";
 print "GETPAGENAME(1): " . System::getPageName(System::NO_EXTENSION) . "<br>";
 print "GETPAGENAME(2): " . System::getPageName(System::FULL_PATH) . "<br>";
 print "System::getPageNameArray():<br>";
-print "GETPAGENAMEARRAY: " . \CoreLibs\Debug\Support::printAr(System::getPageNameArray()) . "<br>";
+print "GETPAGENAMEARRAY: " . DgS::printAr(System::getPageNameArray()) . "<br>";
 // seting errro codes file upload
 print "System::fileUploadErrorMessage():<br>";
 print "FILEUPLOADERRORMESSAGE(): " . System::fileUploadErrorMessage(-1) . "<br>";
@@ -51,4 +51,6 @@ print "FILEUPLOADERRORMESSAGE(UPLOAD_ERR_CANT_WRITE): "
 print "System::checkCLI():<br>";
 print "Are we in an CLI: " . (System::checkCLI() ? 'Yes' : 'No') . "<br>";
 
+print "Get Addresses: " . DgS::printAr(System::getIpAddresses()) . "<br>";
+
 print "</body></html>";