auth check tokens instead of effect validator

agora-specs/Spec/AuthorityToken.hs

@@ -101,6 +101,17 @@ specs =
                   Nothing
               ]
           )
+      , scriptSucceeds
+          "Correct even though scripts don't match"
+          ( singleAuthorityTokenBurnedTest
+              ( Value.singleton currencySymbol "i'm not deadbeef!" (-1)
+              )
+              [ TxOut
+                  (Address (ScriptCredential (ValidatorHash "deadbeef")) Nothing)
+                  (Value.singleton currencySymbol "i'm not deadbeef!" 1)
+                  Nothing
+              ]
+          )
       , scriptFails
           "Incorrect no burn"
           ( singleAuthorityTokenBurnedTest
@@ -115,17 +126,6 @@ specs =
               )
               []
           )
-      , scriptFails
-          "Incorrect script mismatch"
-          ( singleAuthorityTokenBurnedTest
-              ( Value.singleton currencySymbol "i'm not deadbeef!" (-1)
-              )
-              [ TxOut
-                  (Address (ScriptCredential (ValidatorHash "deadbeef")) Nothing)
-                  (Value.singleton currencySymbol "i'm not deadbeef!" 1)
-                  Nothing
-              ]
-          )
       , scriptFails
           "Incorrect spent from PK"
           ( singleAuthorityTokenBurnedTest

agora-specs/Spec/Proposal.hs

@@ -269,7 +269,7 @@ specs =
                                 { forProposalValidator = True
                                 , forStakeValidator = True
                                 , forGovernorValidator = Just False
-                                , forAuthorityTokenPolicy = Just False
+                                , forAuthorityTokenPolicy = Just True
                                 }
                           , Advance.mkTestTree
                               "wrong GAT datum"

agora-specs/Spec/Treasury.hs

@@ -71,6 +71,12 @@ specs =
               ()
               SpendTreasuryGAT
               validCtx
+          , validatorSucceedsWith
+              "Fails when GAT token name is not script address"
+              compiledTreasuryValidator
+              ()
+              SpendTreasuryGAT
+              trCtxGATNameNotAddress
           ]
       , group
           "Negative"
@@ -121,12 +127,6 @@ specs =
                             (-2)
                       }
                 }
-          , validatorFailsWith
-              "Fails when GAT token name is not script address"
-              compiledTreasuryValidator
-              ()
-              SpendTreasuryGAT
-              trCtxGATNameNotAddress
           , validatorFailsWith
               "Fails with wallet as input"
               compiledTreasuryValidator