From f972dbe40a070cc77352f372d501027634812d82 Mon Sep 17 00:00:00 2001 From: "jacob.windle" Date: Wed, 1 Jun 2022 23:18:49 -0400 Subject: [PATCH] first commit --- .gitignore | 9 +++++++++ README.markdown | 5 +++++ README.org | 5 +++++ article-splorer.asd | 21 +++++++++++++++++++++ src/main.lisp | 18 ++++++++++++++++++ tests/main.lisp | 11 +++++++++++ 6 files changed, 69 insertions(+) create mode 100644 .gitignore create mode 100644 README.markdown create mode 100644 README.org create mode 100644 article-splorer.asd create mode 100644 src/main.lisp create mode 100644 tests/main.lisp diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..b9fa3c1 --- /dev/null +++ b/.gitignore @@ -0,0 +1,9 @@ +*.abcl +*.fasl +*.dx32fsl +*.dx64fsl +*.lx32fsl +*.lx64fsl +*.x86f +*~ +.#* diff --git a/README.markdown b/README.markdown new file mode 100644 index 0000000..1cd0006 --- /dev/null +++ b/README.markdown @@ -0,0 +1,5 @@ +# Article-Splorer + +## Usage + +## Installation diff --git a/README.org b/README.org new file mode 100644 index 0000000..1366af8 --- /dev/null +++ b/README.org @@ -0,0 +1,5 @@ +* Article-Splorer + +** Usage + +** Installation diff --git a/article-splorer.asd b/article-splorer.asd new file mode 100644 index 0000000..61601c2 --- /dev/null +++ b/article-splorer.asd @@ -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))) diff --git a/src/main.lisp b/src/main.lisp new file mode 100644 index 0000000..0133a42 --- /dev/null +++ b/src/main.lisp @@ -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 ))) + diff --git a/tests/main.lisp b/tests/main.lisp new file mode 100644 index 0000000..909681e --- /dev/null +++ b/tests/main.lisp @@ -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))))