Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
F
fare-utils
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Model registry
Operate
Environments
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
François-René Rideau
fare-utils
Compare revisions
f9c7f881e26bd1fe429c55d763964e87c3475294 to 71f965fe8dd908fbb0eb1a7c73cb82e8195099bd
Compare revisions
Changes are shown as if the
source
revision was being merged into the
target
revision.
Learn more about comparing revisions.
Source
frideau/fare-utils
Select target project
No results found
71f965fe8dd908fbb0eb1a7c73cb82e8195099bd
Select Git revision
Branches
master
Swap
Target
frideau/fare-utils
Select target project
frideau/fare-utils
1 result
f9c7f881e26bd1fe429c55d763964e87c3475294
Select Git revision
Branches
master
Show changes
Only incoming changes from source
Include changes to target since source was created
Compare
Commits on Source (1)
1.0.0.1: update .asd files, fix tests.
· 71f965fe
Francois-Rene Rideau
authored
9 years ago
71f965fe
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
fare-utils.asd
+7
-8
7 additions, 8 deletions
fare-utils.asd
test/fare-utils-test.asd
+8
-3
8 additions, 3 deletions
test/fare-utils-test.asd
test/package.lisp
+1
-4
1 addition, 4 deletions
test/package.lisp
test/strings.lisp
+1
-1
1 addition, 1 deletion
test/strings.lisp
with
17 additions
and
16 deletions
fare-utils.asd
View file @
71f965fe
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
(
defsystem
:fare-utils
(
defsystem
"fare-utils"
:version
"1.0.0.1"
:description
"Basic functions and macros, interfaces, pure and stateful datastructures"
:long-description
"fare-utilities is a small collection of utilities.
It contains a lot of basic everyday functions and macros,
but also a library of pure and stateful datastructures,
and Lisp extensions for memoization and reader interception."
:depends-on
(
#-
asdf3
:asdf-driver
)
:version
"1.0.0"
:license
"MIT"
;; also BSD or bugroff
:author
"Francois-Rene Rideau"
:depends-on
((
:version
"asdf"
"3.0"
))
:components
((
:file
"package"
)
...
...
@@ -45,8 +47,5 @@ and Lisp extensions for memoization and reader interception."
(:file "binomial-heap" :depends-on ("container"))
|#
(
:file
"dllist"
:depends-on
(
"container"
))
#|(:file "sorting" :depends-on ("binary-heap" "binomial-heap"))|#
))))
(
defmethod
perform
((
op
test-op
)
(
system
(
eql
(
find-system
:fare-utils
))))
(
asdf:load-system
:fare-utils-test
)
(
funcall
(
read-from-string
"fare-utils-test:test-suite"
)))
#|(:file "sorting" :depends-on ("binary-heap" "binomial-heap"))|#
)))
:in-order-to
((
test-op
(
test-op
"fare-utils-test"
))))
This diff is collapsed.
Click to expand it.
test/fare-utils-test.asd
View file @
71f965fe
;;; -*- Mode: Lisp ; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
(
asdf:defsystem
:fare-utils-test
:depends-on
(
:fare-utils
:hu.dwim.stefil
)
(
defsystem
"fare-utils-test"
:version
"1.0.0.1"
:description
"Tests for fare-utils"
:license
"MIT"
;; also BSD or bugroff
:author
"Francois-Rene Rideau"
:depends-on
(
"fare-utils"
"hu.dwim.stefil"
)
:components
((
:file
"package"
)
(
:file
"strings"
:depends-on
(
"package"
))))
(
:file
"strings"
:depends-on
(
"package"
)))
:perform
(
test-op
(
o
c
)
(
symbol-call
:fare-utils-test
:test-suite
)))
This diff is collapsed.
Click to expand it.
test/package.lisp
View file @
71f965fe
#+
xcvb
(
module
())
(
defpackage
:fare-utils-test
(
:use
:fare-utils
:interface
:eq
:order
:pure
:reader-interception
:cl
:hu.dwim.stefil
)
(
:use
:cl
:fare-utils
:uiop
:hu.dwim.stefil
)
(
:export
#:test-suite
))
(
in-package
:fare-utils-test
)
...
...
This diff is collapsed.
Click to expand it.
test/strings.lisp
View file @
71f965fe
...
...
@@ -6,7 +6,7 @@
:documentation
"Test string functions"
))
(
deftest
test-strcat
()
(
is
(
equal
(
asdf:
strcat
"foo"
"bar"
"baz"
)
"foobarbaz"
)))
(
is
(
equal
(
strcat
"foo"
"bar"
"baz"
)
"foobarbaz"
)))
(
deftest
test-join-strings
()
(
is
(
equal
(
join-strings
'
(
"/bin"
"/usr/bin"
"/usr/local/bin"
)
:separator
":"
)
...
...
This diff is collapsed.
Click to expand it.