feat: add vsm hub metadata

Test/Main.hs

@@ -8,7 +8,9 @@ import Web.Controller.Api.V2.InteractionEvents
     ( declaredEventTypeNames, manifestAllowsEvent, metadataFromJsonBody
     , metadataParamOrEmpty
     )
-import Web.Controller.Api.V2.Hubs (missingRequiredFields, validCreateHubKind)
+import Web.Controller.Api.V2.Hubs
+    ( missingRequiredFields, validCreateHubKind, validVsmMetadata
+    , validVsmSystem )
 import Web.Controller.Api.V2.HubCapabilityManifests
     ( jsonArrayTexts, textArrayFieldFromJsonBody )
 import Web.Controller.Api.V2.ApiConsumers (positiveLimit)
@@ -63,6 +65,18 @@ main = hspec do
                 ]
                 `shouldBe` ["slug", "name"]
 
+        it "accepts complete VSM hub classification for ops-hub" do
+            validVsmMetadata (Just "vsm") (Just "operations") (Just "1")
+                `shouldBe` True
+            validVsmSystem "1" `shouldBe` True
+            validVsmSystem "6" `shouldBe` False
+
+        it "rejects partial VSM metadata" do
+            validVsmMetadata (Just "vsm") (Just "operations") Nothing
+                `shouldBe` False
+            validVsmMetadata Nothing (Just "operations") (Just "1")
+                `shouldBe` False
+
         it "accepts widget statuses supported by the UI create flow" do
             validWidgetStatus "active" `shouldBe` True
             validWidgetStatus "deprecated" `shouldBe` True