LibWeb: Add method for "is CORS-same-origin"

Author: https://github.com/AtkinsSJ
Commit: a4db7e9e23
Pull-request: https://github.com/LadybirdBrowser/ladybird/pull/2998

Libraries/LibWeb/Fetch/Infrastructure/HTTP/Responses.cpp

@@ -201,6 +201,20 @@ GC::Ref<Response> Response::unsafe_response()
     return *this;
 }
 
+// https://html.spec.whatwg.org/multipage/urls-and-fetching.html#cors-same-origin
+bool Response::is_cors_same_origin() const
+{
+    // A response whose type is "basic", "cors", or "default" is CORS-same-origin. [FETCH]
+    switch (type()) {
+    case Type::Basic:
+    case Type::CORS:
+    case Type::Default:
+        return true;
+    default:
+        return false;
+    }
+}
+
 // https://html.spec.whatwg.org/multipage/urls-and-fetching.html#cors-cross-origin
 bool Response::is_cors_cross_origin() const
 {

Libraries/LibWeb/Fetch/Infrastructure/HTTP/Responses.h

@@ -116,6 +116,7 @@ public:
 
     [[nodiscard]] GC::Ref<Response> unsafe_response();
 
+    [[nodiscard]] bool is_cors_same_origin() const;
     [[nodiscard]] bool is_cors_cross_origin() const;
 
     [[nodiscard]] bool is_fresh() const;

Libraries/LibWeb/WebAssembly/WebAssembly.cpp

@@ -750,9 +750,7 @@ GC::Ref<WebIDL::Promise> compile_potential_webassembly_response(JS::VM& vm, GC::
         }
 
         // 6. If response is not CORS-same-origin, reject returnValue with a TypeError and abort these substeps.
-        // https://html.spec.whatwg.org/#cors-same-origin
+        if (!response->is_cors_same_origin()) {
-        auto type = response_object.type();
-        if (type != Bindings::ResponseType::Basic && type != Bindings::ResponseType::Cors && type != Bindings::ResponseType::Default) {
             WebIDL::reject_promise(realm, return_value, *vm.throw_completion<JS::TypeError>("Response is not CORS-same-origin"sv).value());
             return JS::js_undefined();
         }