first commit
This commit is contained in:
commit
f972dbe40a
9
.gitignore
vendored
Normal file
9
.gitignore
vendored
Normal file
@ -0,0 +1,9 @@
|
||||
*.abcl
|
||||
*.fasl
|
||||
*.dx32fsl
|
||||
*.dx64fsl
|
||||
*.lx32fsl
|
||||
*.lx64fsl
|
||||
*.x86f
|
||||
*~
|
||||
.#*
|
5
README.markdown
Normal file
5
README.markdown
Normal file
@ -0,0 +1,5 @@
|
||||
# Article-Splorer
|
||||
|
||||
## Usage
|
||||
|
||||
## Installation
|
5
README.org
Normal file
5
README.org
Normal file
@ -0,0 +1,5 @@
|
||||
* Article-Splorer
|
||||
|
||||
** Usage
|
||||
|
||||
** Installation
|
21
article-splorer.asd
Normal file
21
article-splorer.asd
Normal file
@ -0,0 +1,21 @@
|
||||
(defsystem "article-splorer"
|
||||
:version "0.1.0"
|
||||
:author ""
|
||||
:license ""
|
||||
:depends-on (#:log4cl)
|
||||
:components ((:module "src"
|
||||
:components
|
||||
((:file "main"))))
|
||||
:description ""
|
||||
:in-order-to ((test-op (test-op "article-splorer/tests"))))
|
||||
|
||||
(defsystem "article-splorer/tests"
|
||||
:author ""
|
||||
:license ""
|
||||
:depends-on ("article-splorer"
|
||||
"rove")
|
||||
:components ((:module "tests"
|
||||
:components
|
||||
((:file "main"))))
|
||||
:description "Test system for article-splorer"
|
||||
:perform (test-op (op c) (symbol-call :rove :run c)))
|
18
src/main.lisp
Normal file
18
src/main.lisp
Normal file
@ -0,0 +1,18 @@
|
||||
(defpackage article-splorer
|
||||
(:use :cl :log4cl))
|
||||
(in-package :article-splorer)
|
||||
|
||||
(defparameter *bfsqueue* (make-queue))
|
||||
|
||||
(defun entrypoint ()
|
||||
(progn
|
||||
(log:info "starting our program")
|
||||
(begin-loop 0)))
|
||||
|
||||
(defun begin-loop (iteration)
|
||||
(progn
|
||||
(log:info "iteration ~d" iteration)
|
||||
(sleep 5)
|
||||
(log:info "doing work")
|
||||
(bfs )))
|
||||
|
11
tests/main.lisp
Normal file
11
tests/main.lisp
Normal file
@ -0,0 +1,11 @@
|
||||
(defpackage article-splorer/tests/main
|
||||
(:use :cl
|
||||
:article-splorer
|
||||
:rove))
|
||||
(in-package :article-splorer/tests/main)
|
||||
|
||||
;; NOTE: To run this test file, execute `(asdf:test-system :article-splorer)' in your Lisp.
|
||||
|
||||
(deftest test-target-1
|
||||
(testing "should (= 1 1) to be true"
|
||||
(ok (= 1 1))))
|
Loading…
Reference in New Issue
Block a user