refactoring by skill
This commit is contained in:
@@ -830,7 +830,7 @@ SQL
|
||||
(and version-number
|
||||
(call-with-wiki-database
|
||||
config
|
||||
(lambda (db)
|
||||
(λ (db)
|
||||
(and
|
||||
(query-maybe-value
|
||||
db
|
||||
@@ -962,13 +962,13 @@ SQL
|
||||
'externalUrl)
|
||||
"https://example.com/path")
|
||||
(check-exn exn:fail?
|
||||
(lambda ()
|
||||
(λ ()
|
||||
(concept-content
|
||||
(hash 'id concept-a
|
||||
'label "Unsafe concept"
|
||||
'externalUrl "javascript:alert(1)"))))
|
||||
(check-exn exn:fail?
|
||||
(lambda ()
|
||||
(λ ()
|
||||
(concept-map-storage-document
|
||||
(hash 'concepts (list (hash 'id "legacy:map:concept-1"))
|
||||
'items '())))))
|
||||
|
||||
Reference in New Issue
Block a user