This file is indexed.

/usr/share/common-lisp/source/clsql-tests/clsql-tests.asd is in cl-sql-tests 6.7.0-1.1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; File:     clsql-tests.asd
;;;; Authors:  Marcus Pearce and Kevin Rosenberg
;;;; Created:  30/03/2004
;;;;
;;;; This file is part of CLSQL.
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************

(in-package #:cl-user)
(defpackage #:clsql-tests-system (:use #:asdf #:cl))
(in-package #:clsql-tests-system)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package '#:uffi)
    (asdf:operate 'asdf:load-op 'uffi)))

(defsystem clsql-tests
    :name "CLSQL Tests"
    :author ""
    :maintainer ""
    :version ""
    :licence ""
    :description "A regression test suite for CLSQL."
    :depends-on (clsql rt)
    :components
    ((:module tests
	      :serial t
	      :components ((:file "package")
			   (:file "utils")
			   (:file "test-init")
			   (:file "datasets")
			   (:file "ds-employees")
			   (:file "ds-nodes")
			   (:file "ds-artists")
			   (:file "benchmarks")
			   (:file "test-internal")
			   (:file "test-basic")
			   (:file "test-time")
			   (:file "test-connection")
			   (:file "test-fddl")
			   (:file "test-fdml")
			   (:file "test-ooddl")
			   (:file "test-oodml")
			   (:file "test-syntax")
                           (:file "test-pool")
                           ; #-uffi:no-i18n (:file "test-i18n")
                           ))))

(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
  (operate 'load-op 'clsql)
  (unless (funcall (intern (symbol-name '#:run-tests)
			   (find-package '#:clsql-tests)))
    (error "test-op failed")))