Add missing GPLv3 headers to various files · syl20bnr/spacemacs@be6f820 (original) (raw)

`@@ -7,7 +7,20 @@

7

`;;

8

`;; This file is not part of GNU Emacs.

9

`;;

10

;;; License: GPLv3

10

;; This program is free software; you can redistribute it and/or modify

11

;; it under the terms of the GNU General Public License as published by

12

;; the Free Software Foundation, either version 3 of the License, or

13

;; (at your option) any later version.

14

;;

15

;; This program is distributed in the hope that it will be useful,

16

;; but WITHOUT ANY WARRANTY; without even the implied warranty of

17

;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

18

;; GNU General Public License for more details.

19

;;

20

;; You should have received a copy of the GNU General Public License

21

;; along with this program. If not, see http://www.gnu.org/licenses/.

22

+

23

+

11

24

`(require 'mocker)

12

25

`(require 'core-command-line)

13

26

`(require 'core-configuration-layer)

730

743

` (helper--add-packages

731

744

` (list (cfgl-package "pkg1" :name 'pkg1 :owners '(layer1))

732

745

` (cfgl-package "pkg2" :name 'pkg2 :owners '(layer2) :requires '(pkg1))

733

(cfgl-package "pkg3" :name 'pkg3 :owners '(layer3) :requires '(pkg2))

734

)

746

(cfgl-package "pkg3" :name 'pkg3 :owners '(layer3) :requires '(pkg2)))

747

+

735

748

`'used)

736

749

` (should (configuration-layer/package-used-p 'pkg3))))

737

750

919

932

` (configuration-layer--package-archives-refreshed nil)

920

933

` (dotspacemacs-elpa-timeout -1))

921

934

` (mocker-let

922

((message (format-string &rest args)

923

((:record-cls 'mocker-stub-record :output nil))))

924

(configuration-layer/retrieve-package-archives))))

935

((message (format-string &rest args)

936

((:record-cls 'mocker-stub-record :output nil))))

937

(configuration-layer/retrieve-package-archives))))

925

938

926

939

`(ert-deftest test-retrieve-package-archives--catch-connection-errors ()

927

940

` (let ((package-archives '(("gnu" . "https://elpa.gnu.org/packages/")))

1040

1053

`:packages '(pkg1 pkg2 pkg3)

1041

1054

`:selected-packages 'all

1042

1055

`:dir spacemacs-start-directory)

1043

(configuration-layer/make-layer 'layer layer 'used))))))

1056

(configuration-layer/make-layer 'layer layer 'used))))))

1044

1057

1045

1058

`(ert-deftest test-make-layer--make-layer-force-load-packages-file-with-var ()

1046

1059

` (let ((layer (cfgl-layer "layer"

1534

1547

`;; (message "%s" (configuration-layer/make-package input 'layer-make-pkg-13))

1535

1548

` (should

1536

1549

` (not (equal

1537

expected

1538

(configuration-layer/make-package input 'layer-make-pkg-13))))))

1550

expected

1551

(configuration-layer/make-package input 'layer-make-pkg-13))))))

1539

1552

1540

1553

`(ert-deftest test-make-package--make-package-requires-list-when-multiple-symbols ()

1541

1554

` (let* (configuration-layer--used-layers

1927

1940

` (layer18 (cfgl-layer "layer18"

1928

1941

`:name 'layer18

1929

1942

`:dir "/path/"

1930

:packages '((pkg1 :excluded t))

1931

))

1932

configuration-layer--used-layers

1933

(configuration-layer--indexed-layers (make-hash-table :size 1024))

1943

:packages '((pkg1 :excluded t))))

1944

+

1945

configuration-layer--used-layers

1946

(configuration-layer--indexed-layers (make-hash-table :size 1024))

1934

1947

` configuration-layer--used-packages

1935

1948

` (configuration-layer--indexed-packages (make-hash-table :size 2048))

1936

1949

` (mocker-mock-default-record-cls 'mocker-stub-record))

2117

2130

2118

2131

`(ert-deftest test-make-packages-from-dotfile--dotfile-declares-and-owns-one-additional-package ()

2119

2132

` (let* ((layer-dotfile-1 (cfgl-layer "layer-dotfile-1"

2120

:name 'layer-dotfile-1

2121

:dir "/path/"

2122

:packages '(pkg1 pkg2)))

2133

:name 'layer-dotfile-1

2134

:dir "/path/"

2135

:packages '(pkg1 pkg2)))

2123

2136

` (dotspacemacs-additional-packages '(pkg3))

2124

2137

` configuration-layer--used-layers

2125

2138

` (configuration-layer--indexed-layers (make-hash-table :size 1024))

2158

2171

2159

2172

`(ert-deftest test-make-packages-from-dotfile--dotfile-excludes-pkg2-in-layer-11 ()

2160

2173

` (let* ((layer-dotfile-3 (cfgl-layer "layer-dotfile-3"

2161

:name 'layer-dotfile-3

2162

:dir "/path/"

2163

:packages '(pkg1 pkg2 pkg3)))

2174

:name 'layer-dotfile-3

2175

:dir "/path/"

2176

:packages '(pkg1 pkg2 pkg3)))

2164

2177

` (dotspacemacs-excluded-packages '(pkg2))

2165

2178

` configuration-layer--used-layers

2166

2179

` (configuration-layer--indexed-layers (make-hash-table :size 1024))

2831

2844

`:owners '(layer-filter-4))

2832

2845

` (cfgl-package "pkg8" :name 'pkg8

2833

2846

`:owners '(layer-filter-4)))

2834

(configuration-layer/filter-objects

2835

pkgs (lambda (x)

2836

(or (not (eq 'local (oref x :location)))

2837

(not (oref x :excluded)))))))))

2847

(configuration-layer/filter-objects

2848

pkgs (lambda (x)

2849

(or (not (eq 'local (oref x :location)))

2850

(not (oref x :excluded)))))))))

2838

2851

2839

2852

`;; ---------------------------------------------------------------------------

2840

2853

`;; configuration-layer//directory-type

3127

3140

3128

3141

`(ert-deftest test-package-install-org--no-effect-on-symbol-name-other-packages ()

3129

3142

` (let ((pkg (configuration-layer//package-install-org 'identity 'foo)))

3130

(should (eq 'foo pkg ))))

3143

(should (eq 'foo pkg))))

3131

3144

3132

3145

`(ert-deftest test-package-install-org--package-desc-name-org ()

3133

3146

` (let ((pkg (package-desc-create :name 'org