482 lines
14 KiB
Plaintext
482 lines
14 KiB
Plaintext
|
(*
|
||
|
Module: Test_Cups
|
||
|
Provides unit tests and examples for the <Cups> lens.
|
||
|
*)
|
||
|
|
||
|
module Test_Cups =
|
||
|
|
||
|
(* Variable: conf *)
|
||
|
let conf = "# Sample configuration file for the CUPS scheduler.
|
||
|
LogLevel warn
|
||
|
|
||
|
# Deactivate CUPS' internal logrotating, as we provide a better one, especially
|
||
|
# LogLevel debug2 gets usable now
|
||
|
MaxLogSize 0
|
||
|
|
||
|
# Administrator user group...
|
||
|
SystemGroup lpadmin
|
||
|
|
||
|
|
||
|
# Only listen for connections from the local machine.
|
||
|
Listen localhost:631
|
||
|
Listen /var/run/cups/cups.sock
|
||
|
|
||
|
# Show shared printers on the local network.
|
||
|
BrowseOrder allow,deny
|
||
|
BrowseAllow all
|
||
|
BrowseLocalProtocols CUPS dnssd
|
||
|
BrowseAddress @LOCAL
|
||
|
|
||
|
# Default authentication type, when authentication is required...
|
||
|
DefaultAuthType Basic
|
||
|
|
||
|
# Web interface setting...
|
||
|
WebInterface Yes
|
||
|
|
||
|
# Restrict access to the server...
|
||
|
<Location />
|
||
|
Order allow,deny
|
||
|
</Location>
|
||
|
|
||
|
# Restrict access to the admin pages...
|
||
|
<Location /admin>
|
||
|
Order allow,deny
|
||
|
</Location>
|
||
|
|
||
|
# Restrict access to configuration files...
|
||
|
<Location /admin/conf>
|
||
|
AuthType Default
|
||
|
Require user @SYSTEM
|
||
|
Order allow,deny
|
||
|
</Location>
|
||
|
|
||
|
# Set the default printer/job policies...
|
||
|
<Policy default>
|
||
|
# Job/subscription privacy...
|
||
|
JobPrivateAccess default
|
||
|
JobPrivateValues default
|
||
|
SubscriptionPrivateAccess default
|
||
|
SubscriptionPrivateValues default
|
||
|
|
||
|
# Job-related operations must be done by the owner or an administrator...
|
||
|
<Limit Create-Job Print-Job Print-URI Validate-Job>
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
<Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document>
|
||
|
Require user @OWNER @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# All administration operations require an administrator to authenticate...
|
||
|
<Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default CUPS-Get-Devices>
|
||
|
AuthType Default
|
||
|
Require user @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# All printer operations require a printer operator to authenticate...
|
||
|
<Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs>
|
||
|
AuthType Default
|
||
|
Require user @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# Only the owner or an administrator can cancel or authenticate a job...
|
||
|
<Limit Cancel-Job CUPS-Authenticate-Job>
|
||
|
Require user @OWNER @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
<Limit All>
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
</Policy>
|
||
|
|
||
|
# Set the authenticated printer/job policies...
|
||
|
<Policy authenticated>
|
||
|
# Job/subscription privacy...
|
||
|
JobPrivateAccess default
|
||
|
JobPrivateValues default
|
||
|
SubscriptionPrivateAccess default
|
||
|
SubscriptionPrivateValues default
|
||
|
|
||
|
# Job-related operations must be done by the owner or an administrator...
|
||
|
<Limit Create-Job Print-Job Print-URI Validate-Job>
|
||
|
AuthType Default
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
<Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document>
|
||
|
AuthType Default
|
||
|
Require user @OWNER @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# All administration operations require an administrator to authenticate...
|
||
|
<Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default>
|
||
|
AuthType Default
|
||
|
Require user @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# All printer operations require a printer operator to authenticate...
|
||
|
<Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs>
|
||
|
AuthType Default
|
||
|
Require user @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
# Only the owner or an administrator can cancel or authenticate a job...
|
||
|
<Limit Cancel-Job CUPS-Authenticate-Job>
|
||
|
AuthType Default
|
||
|
Require user @OWNER @SYSTEM
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
|
||
|
<Limit All>
|
||
|
Order deny,allow
|
||
|
</Limit>
|
||
|
</Policy>
|
||
|
"
|
||
|
|
||
|
(* Test: Simplevars.lns *)
|
||
|
test Cups.lns get conf =
|
||
|
{ "#comment" = "Sample configuration file for the CUPS scheduler." }
|
||
|
{ "directive" = "LogLevel"
|
||
|
{ "arg" = "warn" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Deactivate CUPS' internal logrotating, as we provide a better one, especially" }
|
||
|
{ "#comment" = "LogLevel debug2 gets usable now" }
|
||
|
{ "directive" = "MaxLogSize"
|
||
|
{ "arg" = "0" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Administrator user group..." }
|
||
|
{ "directive" = "SystemGroup"
|
||
|
{ "arg" = "lpadmin" }
|
||
|
}
|
||
|
{ }
|
||
|
{ }
|
||
|
{ "#comment" = "Only listen for connections from the local machine." }
|
||
|
{ "directive" = "Listen"
|
||
|
{ "arg" = "localhost:631" }
|
||
|
}
|
||
|
{ "directive" = "Listen"
|
||
|
{ "arg" = "/var/run/cups/cups.sock" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Show shared printers on the local network." }
|
||
|
{ "directive" = "BrowseOrder"
|
||
|
{ "arg" = "allow,deny" }
|
||
|
}
|
||
|
{ "directive" = "BrowseAllow"
|
||
|
{ "arg" = "all" }
|
||
|
}
|
||
|
{ "directive" = "BrowseLocalProtocols"
|
||
|
{ "arg" = "CUPS" }
|
||
|
{ "arg" = "dnssd" }
|
||
|
}
|
||
|
{ "directive" = "BrowseAddress"
|
||
|
{ "arg" = "@LOCAL" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Default authentication type, when authentication is required..." }
|
||
|
{ "directive" = "DefaultAuthType"
|
||
|
{ "arg" = "Basic" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Web interface setting..." }
|
||
|
{ "directive" = "WebInterface"
|
||
|
{ "arg" = "Yes" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Restrict access to the server..." }
|
||
|
{ "Location"
|
||
|
{ "arg" = "/" }
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "allow,deny" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Restrict access to the admin pages..." }
|
||
|
{ "Location"
|
||
|
{ "arg" = "/admin" }
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "allow,deny" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Restrict access to configuration files..." }
|
||
|
{ "Location"
|
||
|
{ "arg" = "/admin/conf" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "allow,deny" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Set the default printer/job policies..." }
|
||
|
{ "Policy"
|
||
|
{ "arg" = "default" }
|
||
|
{ "#comment" = "Job/subscription privacy..." }
|
||
|
{ "directive" = "JobPrivateAccess"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "JobPrivateValues"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "SubscriptionPrivateAccess"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "SubscriptionPrivateValues"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Job-related operations must be done by the owner or an administrator..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Create-Job" }
|
||
|
{ "arg" = "Print-Job" }
|
||
|
{ "arg" = "Print-URI" }
|
||
|
{ "arg" = "Validate-Job" }
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Send-Document" }
|
||
|
{ "arg" = "Send-URI" }
|
||
|
{ "arg" = "Hold-Job" }
|
||
|
{ "arg" = "Release-Job" }
|
||
|
{ "arg" = "Restart-Job" }
|
||
|
{ "arg" = "Purge-Jobs" }
|
||
|
{ "arg" = "Set-Job-Attributes" }
|
||
|
{ "arg" = "Create-Job-Subscription" }
|
||
|
{ "arg" = "Renew-Subscription" }
|
||
|
{ "arg" = "Cancel-Subscription" }
|
||
|
{ "arg" = "Get-Notifications" }
|
||
|
{ "arg" = "Reprocess-Job" }
|
||
|
{ "arg" = "Cancel-Current-Job" }
|
||
|
{ "arg" = "Suspend-Current-Job" }
|
||
|
{ "arg" = "Resume-Job" }
|
||
|
{ "arg" = "Cancel-My-Jobs" }
|
||
|
{ "arg" = "Close-Job" }
|
||
|
{ "arg" = "CUPS-Move-Job" }
|
||
|
{ "arg" = "CUPS-Get-Document" }
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@OWNER" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "All administration operations require an administrator to authenticate..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "CUPS-Add-Modify-Printer" }
|
||
|
{ "arg" = "CUPS-Delete-Printer" }
|
||
|
{ "arg" = "CUPS-Add-Modify-Class" }
|
||
|
{ "arg" = "CUPS-Delete-Class" }
|
||
|
{ "arg" = "CUPS-Set-Default" }
|
||
|
{ "arg" = "CUPS-Get-Devices" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "All printer operations require a printer operator to authenticate..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Pause-Printer" }
|
||
|
{ "arg" = "Resume-Printer" }
|
||
|
{ "arg" = "Enable-Printer" }
|
||
|
{ "arg" = "Disable-Printer" }
|
||
|
{ "arg" = "Pause-Printer-After-Current-Job" }
|
||
|
{ "arg" = "Hold-New-Jobs" }
|
||
|
{ "arg" = "Release-Held-New-Jobs" }
|
||
|
{ "arg" = "Deactivate-Printer" }
|
||
|
{ "arg" = "Activate-Printer" }
|
||
|
{ "arg" = "Restart-Printer" }
|
||
|
{ "arg" = "Shutdown-Printer" }
|
||
|
{ "arg" = "Startup-Printer" }
|
||
|
{ "arg" = "Promote-Job" }
|
||
|
{ "arg" = "Schedule-Job-After" }
|
||
|
{ "arg" = "Cancel-Jobs" }
|
||
|
{ "arg" = "CUPS-Accept-Jobs" }
|
||
|
{ "arg" = "CUPS-Reject-Jobs" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Cancel-Job" }
|
||
|
{ "arg" = "CUPS-Authenticate-Job" }
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@OWNER" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "Limit"
|
||
|
{ "arg" = "All" }
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Set the authenticated printer/job policies..." }
|
||
|
{ "Policy"
|
||
|
{ "arg" = "authenticated" }
|
||
|
{ "#comment" = "Job/subscription privacy..." }
|
||
|
{ "directive" = "JobPrivateAccess"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "JobPrivateValues"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "SubscriptionPrivateAccess"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ "directive" = "SubscriptionPrivateValues"
|
||
|
{ "arg" = "default" }
|
||
|
}
|
||
|
{ }
|
||
|
{ "#comment" = "Job-related operations must be done by the owner or an administrator..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Create-Job" }
|
||
|
{ "arg" = "Print-Job" }
|
||
|
{ "arg" = "Print-URI" }
|
||
|
{ "arg" = "Validate-Job" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Send-Document" }
|
||
|
{ "arg" = "Send-URI" }
|
||
|
{ "arg" = "Hold-Job" }
|
||
|
{ "arg" = "Release-Job" }
|
||
|
{ "arg" = "Restart-Job" }
|
||
|
{ "arg" = "Purge-Jobs" }
|
||
|
{ "arg" = "Set-Job-Attributes" }
|
||
|
{ "arg" = "Create-Job-Subscription" }
|
||
|
{ "arg" = "Renew-Subscription" }
|
||
|
{ "arg" = "Cancel-Subscription" }
|
||
|
{ "arg" = "Get-Notifications" }
|
||
|
{ "arg" = "Reprocess-Job" }
|
||
|
{ "arg" = "Cancel-Current-Job" }
|
||
|
{ "arg" = "Suspend-Current-Job" }
|
||
|
{ "arg" = "Resume-Job" }
|
||
|
{ "arg" = "Cancel-My-Jobs" }
|
||
|
{ "arg" = "Close-Job" }
|
||
|
{ "arg" = "CUPS-Move-Job" }
|
||
|
{ "arg" = "CUPS-Get-Document" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@OWNER" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "All administration operations require an administrator to authenticate..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "CUPS-Add-Modify-Printer" }
|
||
|
{ "arg" = "CUPS-Delete-Printer" }
|
||
|
{ "arg" = "CUPS-Add-Modify-Class" }
|
||
|
{ "arg" = "CUPS-Delete-Class" }
|
||
|
{ "arg" = "CUPS-Set-Default" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "All printer operations require a printer operator to authenticate..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Pause-Printer" }
|
||
|
{ "arg" = "Resume-Printer" }
|
||
|
{ "arg" = "Enable-Printer" }
|
||
|
{ "arg" = "Disable-Printer" }
|
||
|
{ "arg" = "Pause-Printer-After-Current-Job" }
|
||
|
{ "arg" = "Hold-New-Jobs" }
|
||
|
{ "arg" = "Release-Held-New-Jobs" }
|
||
|
{ "arg" = "Deactivate-Printer" }
|
||
|
{ "arg" = "Activate-Printer" }
|
||
|
{ "arg" = "Restart-Printer" }
|
||
|
{ "arg" = "Shutdown-Printer" }
|
||
|
{ "arg" = "Startup-Printer" }
|
||
|
{ "arg" = "Promote-Job" }
|
||
|
{ "arg" = "Schedule-Job-After" }
|
||
|
{ "arg" = "Cancel-Jobs" }
|
||
|
{ "arg" = "CUPS-Accept-Jobs" }
|
||
|
{ "arg" = "CUPS-Reject-Jobs" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." }
|
||
|
{ "Limit"
|
||
|
{ "arg" = "Cancel-Job" }
|
||
|
{ "arg" = "CUPS-Authenticate-Job" }
|
||
|
{ "directive" = "AuthType"
|
||
|
{ "arg" = "Default" }
|
||
|
}
|
||
|
{ "directive" = "Require"
|
||
|
{ "arg" = "user" }
|
||
|
{ "arg" = "@OWNER" }
|
||
|
{ "arg" = "@SYSTEM" }
|
||
|
}
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
{ "Limit"
|
||
|
{ "arg" = "All" }
|
||
|
{ "directive" = "Order"
|
||
|
{ "arg" = "deny,allow" }
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|