Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Test command line #1316

Merged
merged 17 commits into from
Jul 8, 2024
Merged

Test command line #1316

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
f547b1b
Fix
raviqqe Jul 8, 2024
33c2d2b
Fix
raviqqe Jul 8, 2024
be0ca56
Fix
raviqqe Jul 8, 2024
9c87f90
Fix
raviqqe Jul 8, 2024
8b8843b
Fix
raviqqe Jul 8, 2024
0a69243
Fix
raviqqe Jul 8, 2024
faeeace
Fix
raviqqe Jul 8, 2024
e6c9844
Fix
raviqqe Jul 8, 2024
4565483
Fix
raviqqe Jul 8, 2024
3a9f7a9
Fix
raviqqe Jul 8, 2024
17e157b
Fix
raviqqe Jul 8, 2024
d78988e
Fix
raviqqe Jul 8, 2024
6d5e14b
Fix
raviqqe Jul 8, 2024
e2ead7b
Fix
raviqqe Jul 8, 2024
2b81566
Merge branch 'main' into feature/test-process-context
raviqqe Jul 8, 2024
a8c1553
Refactor
raviqqe Jul 8, 2024
2b79633
Fix
raviqqe Jul 8, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Fix
  • Loading branch information
@raviqqe
raviqqe committed Jul 8, 2024
commit e6c98442fccb10d115f2ff535dda48a4126d15b1
30 changes: 30 additions & 0 deletions features/process-context/environment-variable.feature
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
Feature: Environment variables
Scenario: Get an environment variables
Given a file named "main.scm" with:
"""scheme
(import (scheme base) (scheme process-context))

(write-string (cdr (get-environment-variable "FOO")))
"""
And I set the environment variable "FOO" to "bar"
When I successfully run `scheme main.scm hello`
Then the stdout should contain exactly "bar"

Scenario: Get environment variables
Given a file named "main.scm" with:
"""scheme
(import (scheme base) (scheme process-context))

(for-each
(lambda (pair)
(write-string (car pair))
(write-char #\=)
(write-string (cdr pair))
(newline))
(get-environment-variables))
"""
And I set the environment variable "FOO" to "bar"
And I set the environment variable "BAZ" to "qux"
When I successfully run `scheme main.scm hello`
Then the stdout should contain "FOO=bar"
And the stdout should contain "BAZ=qux"
9 changes: 8 additions & 1 deletion prelude.scm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2257,7 +2257,14 @@
(define $$get-environment-variables (primitive 29))

(define command-line (delay (map code-points->string ($$command-line))))
(define get-environment-variables (delay ($$get-environment-variables)))
(define get-environment-variables
(delay
(map
(lambda (pair)
(cons
(code-points->string (car pair))
(code-points->string (cdr pair))))
($$get-environment-variables))))

(define (get-environment-variable name)
(assoc name (get-environment-variables)))
Expand Down
Loading