LibWeb/Tests: Add basic tests for {ByteLength,Counting}QueuingStrategy

Author: https://github.com/shannonbooth
Commit: https://github.com/SerenityOS/serenity/commit/464e428e94
Pull-request: https://github.com/SerenityOS/serenity/pull/19455
Reviewed-by: https://github.com/kennethmyhra ✅
Reviewed-by: https://github.com/mattco98 ✅

Tests/LibWeb/Text/expected/Streams/QueuingStrategy-high-water-mark.txt

@@ -0,0 +1,20 @@
+======================================
+CountQueuingStrategy
+======================================
+'{"highWaterMark":2}' => 2
+'{"highWaterMark":-1}' => -1
+'{"badKey":-1}' => Exception raised of TypeError
+'{}' => Exception raised of TypeError
+'"string instead"' => Exception raised of TypeError
+'{"highWaterMark":"wrongType"}' => NaN
+'{"highWaterMark":{}}' => NaN
+======================================
+ByteLengthQueuingStrategy
+======================================
+'{"highWaterMark":2}' => 2
+'{"highWaterMark":-1}' => -1
+'{"badKey":-1}' => Exception raised of TypeError
+'{}' => Exception raised of TypeError
+'"string instead"' => Exception raised of TypeError
+'{"highWaterMark":"wrongType"}' => NaN
+'{"highWaterMark":{}}' => NaN

Tests/LibWeb/Text/input/Streams/QueuingStrategy-high-water-mark.html

@@ -0,0 +1,33 @@
+<script src="../include.js"></script>
+<script>
+    test(() => {
+        function checkHighWaterMarkForClass(cls, object) {
+            try {
+                const strat = new cls(object);
+                println(`'${JSON.stringify(object)}' => ${strat.highWaterMark}`);
+            } catch (e) {
+                println(`'${JSON.stringify(object)}' => Exception raised of ${e.constructor.name}`);
+            }
+        }
+
+        for (cls of [
+            CountQueuingStrategy,
+            ByteLengthQueuingStrategy,
+        ]) {
+            println("======================================")
+            println(cls.name)
+            println("======================================")
+            for (strat of [
+                { highWaterMark: 2 },
+                { highWaterMark: -1 },
+                { badKey: -1 },
+                {},
+                "string instead",
+                { highWaterMark: "wrongType" },
+                { highWaterMark: {} },
+            ]) {
+                checkHighWaterMarkForClass(cls, strat);
+            }
+        }
+    });
+</script>