kapusta 0.1.0

data/spec/formatter_spec.rb

@@ -0,0 +1,176 @@
+# frozen_string_literal: true
+
+require 'spec_helper'
+require 'kapusta/formatter'
+require 'stringio'
+require 'tmpdir'
+
+def capture_stdout
+  previous_stdout = $stdout
+  $stdout = StringIO.new
+  yield
+  $stdout.string
+ensure
+  $stdout = previous_stdout
+end
+
+def capture_stderr
+  previous_stderr = $stderr
+  $stderr = StringIO.new
+  yield
+  $stderr.string
+ensure
+  $stderr = previous_stderr
+end
+
+def with_stdin(input)
+  previous_stdin = $stdin
+  $stdin = StringIO.new(input)
+  yield
+ensure
+  $stdin = previous_stdin
+end
+
+RSpec.describe Kapusta::Formatter do
+  repo_root = File.expand_path('..', __dir__)
+  example_idempotence_paths = Dir.glob(File.join(repo_root, 'examples/**/*.kap')).map do |path|
+    path.delete_prefix("#{repo_root}/")
+  end.freeze
+
+  it 'formats source with the built-in printer even without fnlfmt in PATH' do
+    Dir.mktmpdir do |dir|
+      path = File.join(dir, 'sample.kap')
+      File.write(path, <<~KAP)
+        (let [uri (URI.join (ivar base-uri) (.. "/posts/" id)) body (Net.HTTP.get uri) post (JSON.parse body {:symbolize-names true}) {: title : author} post] (values title author))
+      KAP
+
+      previous_path = ENV.fetch('PATH', nil)
+      ENV['PATH'] = ''
+
+      output = capture_stdout do
+        expect(described_class.new([path]).run).to eq(0)
+      end
+
+      expect(output).to eq(<<~KAP)
+        (let [uri (URI.join (ivar base-uri) (.. "/posts/" id))
+              body (Net.HTTP.get uri)
+              post (JSON.parse body {:symbolize-names true})
+              {: title : author} post]
+          (values title author))
+      KAP
+    ensure
+      ENV['PATH'] = previous_path
+    end
+  end
+
+  it 'rewrites files in place with --fix' do
+    Dir.mktmpdir do |dir|
+      path = File.join(dir, 'sample.kap')
+      File.write(path, <<~KAP)
+        (let [words ["red" "green" "blue" "black" "olive"]](-> words (: :select (fn [w] (< (length w) 5))) (: :map (fn [w] (w.upcase))) (: :sort) (: :each (fn [w] (puts w)))))
+      KAP
+
+      expect(described_class.new(['--fix', path]).run).to eq(0)
+      expect(File.read(path)).to eq(<<~KAP)
+        (let [words ["red" "green" "blue" "black" "olive"]]
+          (-> words
+              (: :select (fn [w] (< (length w) 5)))
+              (: :map (fn [w] (w.upcase)))
+              (: :sort)
+              (: :each (fn [w] (puts w)))))
+      KAP
+    end
+  end
+
+  it 'reports dirty files with --check' do
+    Dir.mktmpdir do |dir|
+      path = File.join(dir, 'sample.kap')
+      File.write(path, '(fn tick [](set (ivar n) (+ (ivar n) 1))(ivar n))')
+
+      error_output = capture_stderr do
+        expect(described_class.new(['--check', path]).run).to eq(1)
+      end
+
+      expect(error_output).to include("Not formatted: #{path}")
+    end
+  end
+
+  it 'reads stdin when the input path is -' do
+    output = with_stdin("(let [name (or (. ARGV 0) \"world\")](puts (.. \"Hello, \" name \"!\")))\n") do
+      capture_stdout do
+        expect(described_class.new(['-']).run).to eq(0)
+      end
+    end
+
+    expect(output).to eq(<<~KAP)
+      (let [name (or (. ARGV 0) "world")]
+        (puts (.. "Hello, " name "!")))
+    KAP
+  end
+
+  it 'checks stdin when the input path is -' do
+    error_output = with_stdin("(fn tick [](set (ivar n) (+ (ivar n) 1))(ivar n))\n") do
+      capture_stderr do
+        expect(described_class.new(['--check', '-']).run).to eq(1)
+      end
+    end
+
+    expect(error_output).to include('Not formatted: -')
+  end
+
+  it 'rejects --fix with stdin' do
+    error_output = with_stdin("(+ 1 2)\n") do
+      capture_stderr do
+        expect(described_class.new(['--fix', '-']).run).to eq(1)
+      end
+    end
+
+    expect(error_output).to include('Cannot use --fix with stdin (-).')
+  end
+
+  it 'rejects comments instead of dropping them' do
+    Dir.mktmpdir do |dir|
+      path = File.join(dir, 'sample.kap')
+      File.write(path, "(fn main [] ; comment\n  (print 1))\n")
+
+      error_output = capture_stderr do
+        expect(described_class.new([path]).run).to eq(1)
+      end
+
+      expect(error_output).to include('kapfmt does not support comments yet.')
+    end
+  end
+
+  it 'formats let bindings with hanging pair alignment' do
+    Dir.mktmpdir do |dir|
+      path = File.join(dir, 'sample.kap')
+      File.write(path, <<~KAP)
+        (let [[a b c] [1 2 3] {: name : age} {:name "Ada" :age 36}]
+          (print (+ a b c))
+          (print name age))
+      KAP
+
+      output = capture_stdout do
+        expect(described_class.new([path]).run).to eq(0)
+      end
+
+      expect(output).to eq(<<~KAP)
+        (let [[a b c] [1 2 3]
+              {: name : age} {:name "Ada" :age 36}]
+          (print (+ a b c))
+          (print name age))
+      KAP
+    end
+  end
+
+  example_idempotence_paths.each do |relative_path|
+    it "keeps #{relative_path} unchanged" do
+      path = File.expand_path("../#{relative_path}", __dir__)
+      source = File.read(path)
+
+      formatted = described_class.new([]).send(:format_source, source)
+
+      expect(formatted).to eq(source)
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+require 'bundler/setup'
+require 'kapusta'
+
+RSpec.configure do |config|
+  config.disable_monkey_patching!
+  config.example_status_persistence_file_path = '.rspec_status'
+  config.order = :random
+
+  Kernel.srand config.seed
+end

metadata

@@ -0,0 +1,119 @@
+--- !ruby/object:Gem::Specification
+name: kapusta
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Evgenii Morozov
+autorequire:
+bindir: exe
+cert_chain: []
+date: 2026-04-23 00:00:00.000000000 Z
+dependencies: []
+description: Kapusta is a Lisp for the Ruby runtime.
+email:
+executables:
+- kapfmt
+- kapusta
+extensions: []
+extra_rdoc_files: []
+files:
+- ".rspec"
+- Gemfile
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- examples/accumulator.kap
+- examples/ackermann.kap
+- examples/anagram.kap
+- examples/binary-search.kap
+- examples/block-sort.kap
+- examples/calc.kap
+- examples/counter.kap
+- examples/describe.kap
+- examples/destructure.kap
+- examples/doto.kap
+- examples/egg-count.kap
+- examples/even-squares.kap
+- examples/exceptions.kap
+- examples/factorial.kap
+- examples/fib.kap
+- examples/fizzbuzz.kap
+- examples/gcd.kap
+- examples/greet.kap
+- examples/hashfn.kap
+- examples/kwargs.kap
+- examples/leap-year.kap
+- examples/match.kap
+- examples/min-max.kap
+- examples/module-header.kap
+- examples/palindrome.kap
+- examples/pangram.kap
+- examples/pcall.kap
+- examples/pipeline.kap
+- examples/points.kap
+- examples/primes.kap
+- examples/raindrops.kap
+- examples/record.kap
+- examples/regex.kap
+- examples/ruby-eval.kap
+- examples/safe-lookup.kap
+- examples/scopes.kap
+- examples/shapes.kap
+- examples/squares.kap
+- examples/stack.kap
+- examples/sum.kap
+- examples/tset.kap
+- examples/two-sum.kap
+- exe/kapfmt
+- exe/kapusta
+- kapfmt
+- kapusta.gemspec
+- lib/kapusta.rb
+- lib/kapusta/ast.rb
+- lib/kapusta/cli.rb
+- lib/kapusta/compiler.rb
+- lib/kapusta/compiler/emitter.rb
+- lib/kapusta/compiler/emitter/bindings.rb
+- lib/kapusta/compiler/emitter/collections.rb
+- lib/kapusta/compiler/emitter/control_flow.rb
+- lib/kapusta/compiler/emitter/expressions.rb
+- lib/kapusta/compiler/emitter/interop.rb
+- lib/kapusta/compiler/emitter/patterns.rb
+- lib/kapusta/compiler/emitter/support.rb
+- lib/kapusta/compiler/normalizer.rb
+- lib/kapusta/compiler/runtime.rb
+- lib/kapusta/env.rb
+- lib/kapusta/formatter.rb
+- lib/kapusta/reader.rb
+- lib/kapusta/support.rb
+- lib/kapusta/version.rb
+- spec/cli_spec.rb
+- spec/examples_spec.rb
+- spec/formatter_spec.rb
+- spec/spec_helper.rb
+homepage:
+licenses: []
+metadata:
+  rubygems_mfa_required: 'true'
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '3.1'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.5.22
+signing_key:
+specification_version: 4
+summary: A Lisp for the Ruby runtime
+test_files: []