Home
About
Blog
Products
Forum
Support
Contact
Sunbelt Computer Software
PL/B Language Development and Support
Home
About
Blog
Products
Forum
Support
Contact
hyperbole/test/smart-org-tests.el at master · rswgnu/hyperbole · GitHub
Skip to content
Navigation Menu
Sign in
Products
Platform
GitHub
Repository hosting, code review, and collaboration
Copilot
AI coding agent for tasks, projects and automated work
Build & Ship
Actions
CI/CD and automation
Code Quality
Quality analysis, fixes, and enforcement
Codespaces
Cloud development environments
Secure
Code Security
Vulnerability detection and remediation
Secret Protection
Secret scanning and leak prevention
All Features
Developers
Learn
Documentation
Training
Certifications
Build
Build with Copilot
Customize Copilot
Integrations
Explore
Trending repos
GitHub Sponsors
Events
Changelog
Changelog
Your source for the latest features, improvements, and fixes across GitHub products, all in one place.
Businesses
By Stage
Enterprises
Team
Startups
Nonprofits
By Industry
Healthcare
Financial services
Manufacturing
Government
See all industries
Evaluate GitHub
Why GitHub
Customer Stories
Business insights
Trust Center
Add-ons
GitHub Advanced Security
Enterprise-grade code security
Copilot for business
Enterprise-grade AI features
Premium Support
Enterprise-grade 24/7 support
Resources
Learn & Connect
Documentation
Resource center
Blog
Events & webinars
Community Forum
Customer Stories
Integrations
Support
Customer support
Training
GitHub Status
Company
About
Partners
Changelog
GitHub Universe
GitHub Universe
The event for developers, by developers — talks, workshops, and what’s next for GitHub.
Pricing
Search
/
Sign in
Sign up
Appearance settings
You signed in with another tab or window.
Reload
to refresh your session.
You signed out in another tab or window.
Reload
to refresh your session.
You switched accounts on another tab or window.
Reload
to refresh your session.
Dismiss alert
{{ message }}
rswgnu
hyperbole
Repository navigation
Code
Issues
5
(5)
Pull requests
2
(2)
Actions
Projects
Wiki
Security and quality
Insights
More
items
Files
Expand file tree
master
Breadcrumbs
hyperbole
/
test
/
smart-org-tests.el
Copy path
Blame
More file actions
Blame
More file actions
Latest commit
History
History
History
160 lines (142 loc) · 5 KB
master
Breadcrumbs
hyperbole
/
test
/
smart-org-tests.el
Copy path
Top
File metadata and controls
Code
Blame
160 lines (142 loc) · 5 KB
Raw
Copy raw file
Download raw file
Open symbols panel
Edit and raw actions
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
;
;; smart-org-tests.el --- smart-org-el tests -*-
lexical-binding
:
t
; -*-
;
; Author: Mats Lidell <matsl@gnu.org>
;
;
;
; Orig-Date: 23-Apr-21 at 22:21:00
;
; Last-Mod: 6-Oct-26 at 01:15:43 by Bob Weiner
;
;
;
; SPDX-License-Identifier: GPL-3.0-or-later
;
;
;
; Copyright (C) 2021-2024 Free Software Foundation, Inc.
;
; See the "HY-COPY" file for license information.
;
;
;
; This file is part of GNU Hyperbole.
;
;; Commentary:
;
; Tests for smart-org in "../hui-mouse.el"
;
;; Code:
(
require
'ert
)
(
require
'hui-mouse
)
(
require
'hact
)
(
require
'el-mock
)
(
require
'hy-test-helpers
"
test/hy-test-helpers
"
)
(
declare-function
hy-test-helpers:hypb-function-should-call-hpath:find
"
hy-test-helpers
"
)
(
ert-deftest
smart-org-mode-on-header-cycles-visibility ()
"
With smart keys on an outline header
`smart-org'
cycles visibility.
"
(
with-temp-buffer
(
let
((bn (
buffer-name
))
(hsys-org-enable-smart-keys
t
)
(smart-org-action-key-heading-function
'org-cycle
))
(
org-mode
)
(
insert
"
* 1
\n
** 2
\n
*** 3
\n
"
)
(
goto-char
1
)
(
should
(
not
(
org-check-for-hidden
'headlines
)))
(smart-org)
;
; Setting the buffer should not be needed but for some reason
;
; it looks like we get into ert buffer after smart-org
(
set-buffer
bn)
(
should
(
org-check-for-hidden
'headlines
))
(
next-line
)
(
should
(
equal
(
line-number-at-pos
)
4
)))))
;
; Smart Key Context
(
ert-deftest
smart-org-mode-with-smart-keys-on-delimited-thing-activates ()
"
With smart keys on delimited thing activates selection.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
t
))
(
org-mode
)
(
insert
"
(hy per bo le)
\n
"
)
(
goto-char
14
)
(action-key)
(
should
(
equal
(
point
)
1
)))))
;
; Hyperbole Button
(
ert-deftest
smart-org-mode-with-smart-keys-on-hypb-button-activates ()
"
With smart keys on hypb button activates the button.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
t
))
(
org-mode
)
(
insert
"
/tmp
"
)
(
goto-char
1
)
(hy-test-helpers:hypb-function-should-call-hpath:find
'ibtypes::pathname
(
expand-file-name
"
tmp
"
"
/
"
)))))
;
; Hyperbole Button
(
ert-deftest
smart-org-mode-with-smart-keys-buttons-on-hypb-button-activates ()
"
With smart keys as buttons on hypb button activates the button.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
:buttons
))
(
org-mode
)
(
insert
"
/tmp
"
)
(
goto-char
2
)
(hy-test-helpers:hypb-function-should-call-hpath:find
'action-key
(
expand-file-name
"
tmp
"
"
/
"
)))))
;
; Org Link
(
ert-deftest
smart-org-mode-with-smart-keys-on-org-link-activates ()
"
With smart keys on
`org-mode'
link activates link.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
t
))
(
org-mode
)
(
insert
"
[[/tmp][desc]]
"
)
(
goto-char
9
)
(with-mock
(mock (org-link-open-from-string
"
[[/tmp][desc]]
"
) =
>
t
)
(smart-org)))))
;
; Smart Key Context
(
ert-deftest
smart-org-mode-with-smart-keys-buttons-on-delimited-thing-calls-org-meta-return ()
"
With smart keys as buttons on delimited falls back to
`org-meta-return'
.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
:buttons
))
(
org-mode
)
(
insert
"
(hy per bo le)
\n
"
)
(
goto-char
14
)
(with-mock
(mock (hsys-org-meta-return) =
>
t
)
(smart-org)))))
;
; Org Link
(
ert-deftest
smart-org-mode-with-smart-keys-buttons-on-org-link-activates ()
"
With smart keys as buttons on
`org-mode'
link activates link.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
:buttons
))
(
org-mode
)
(
insert
"
[[/tmp][desc]]
"
)
(
goto-char
9
)
(with-mock
(mock (org-link-open-from-string
"
[[/tmp][desc]]
"
) =
>
t
)
(smart-org)))))
;
; Smart Key Context
(
ert-deftest
smart-org-mode-with-no-smart-keys-on-delimited-thing-calls-org-meta-return ()
"
With no smart keys on file calls
`org-meta-return'
.
"
(
with-temp-buffer
(
let
((bn (
buffer-name
))
(hsys-org-enable-smart-keys
nil
))
(
org-mode
)
(
insert
"
(hy per bo le)
\n
"
)
(
goto-char
14
)
(smart-org)
(
set-buffer
bn)
(
should
(
string=
(
buffer-string
)
"
(hy per bo le
\n
* )
\n
"
)))))
;
; Hyperbole Button
(
ert-deftest
smart-org-mode-with-no-smart-keys-on-hypb-button-calls-org-meta-return ()
"
With no smart keys on file calls
`org-meta-return'
.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
nil
))
(
org-mode
)
(
insert
"
/tmp
"
)
(
goto-char
1
)
(with-mock
(mock (hsys-org-meta-return) =
>
t
)
(smart-org)))))
;
; Org Link
(
ert-deftest
smart-org-mode-with-no-smart-keys-on-org-link-is-org-meta-return ()
"
With no smart keys on
`org-mode'
link calls
`org-meta-return'
.
"
(
with-temp-buffer
(
let
((hsys-org-enable-smart-keys
nil
))
(
org-mode
)
(
insert
"
[[/tmp][desc]]
"
)
(
goto-char
9
)
(with-mock
(mock (hsys-org-meta-return) =
>
t
)
(smart-org)))))
;
; Compilation requires
`el-mock'
which is not
`Package-Require'
d.
;
; Local Variables:
;
; no-byte-compile: t
;
; End:
(
provide
'smart-org-tests
)
;
;; smart-org-tests.el ends here
You can’t perform that action at this time.
