Skip to content

feat: Red migration workflow — update, prepare, apply, downgrade #598

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

Open
hermes-fco wants to merge 12 commits into
base: master
Choose a base branch
from
Open

feat: Red migration workflow — update, prepare, apply, downgrade #598

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
12 commits
Select commit Hold shift + click to select a range
8fd2bfd
feat: implement Red migration workflow (update, prepare, apply, downg…
Jun 22, 2026
27dc7e0
Address Copilot review comments on PR #598
Jun 23, 2026
ee27558
refactor: replace raw SQL helpers with Red model, drop UUID for times…
Jun 23, 2026
a8f9041
refactor: use IdClass instead of timestamps for migration file IDs
Jun 23, 2026
fe15ecd
refactor: JSON serialization for model snapshots, remove EVAL
Jun 23, 2026
d61ca44
fix: remove IdClass dependency, use timestamp+random for IDs
Jun 23, 2026
1d15079
fix: remove duplicate my $desc declaration in migration test
Jun 23, 2026
d5bb966
fix: use single quotes to avoid { } interpolation in spurt
Jun 23, 2026
5c66a0c
fix: replace .perl() with .raku() to resolve deprecation warnings
Jun 23, 2026
27bc9d8
fix: rewrite migration tests to match diff-to-ast API and fix warnings
Jun 23, 2026
d48a51b
fix: filter out Any entries from ^diff-from-db before diff-to-ast
Jun 23, 2026
da0996b
fix: revert my $*RED-DB to $GLOBAL::RED-DB in prepare-database + migr…
Jun 23, 2026
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
2 changes: 2 additions & 0 deletions META6.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -91,6 +91,7 @@
"Red::Column": "lib/Red/Column.rakumod",
"Red::ColumnMethods": "lib/Red/ColumnMethods.rakumod",
"Red::Config": "lib/Red/Config.rakumod",
"Red::Configuration": "lib/Red/Configuration.rakumod",
"Red::DB": "lib/Red/DB.rakumod",
"Red::Database": "lib/Red/Database.rakumod",
"Red::DefaultResultSeq": "lib/Red/DefaultResultSeq.rakumod",
Expand All @@ -113,6 +114,7 @@
"Red::FromRelationship": "lib/Red/FromRelationship.rakumod",
"Red::HiddenFromSQLCommenting": "lib/Red/HiddenFromSQLCommenting.rakumod",
"Red::LockType": "lib/Red/LockType.rakumod",
"Red::Migration::Applied": "lib/Red/Migration/Applied.rakumod",
"Red::Migration::Column": "lib/Red/Migration/Column.rakumod",
"Red::Migration::Migration": "lib/Red/Migration/Migration.rakumod",
"Red::Migration::Table": "lib/Red/Migration/Table.rakumod",
Expand Down
60 changes: 56 additions & 4 deletions bin/red
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,9 @@
#!env perl6
#!/usr/bin/env raku
use Red::Cli;
use Red::Do;
use Red::DB;
use Red::Database;
use Red::Configuration;

my %*SUB-MAIN-OPTS =
:named-anywhere,
Expand Down Expand Up @@ -36,7 +38,6 @@ multi MAIN(
say gen-stub-code :$schema-class, :$driver, |%pars
}


#| Generates migration plan to upgrade database schema
multi MAIN(
"migration-plan",
Expand All @@ -57,7 +58,6 @@ multi MAIN(
Str :$schema-class,
Bool :$print-stub = False,
Bool :$no-relationships = False,
#Bool :$stub-only,
Str :$driver!,
*%pars
) {
Expand All @@ -84,6 +84,58 @@ multi MAIN(
prepare-database :$populate, :$models, :$driver, |%pars
}

#============================================
# MIGRATION COMMANDS
#============================================

#| Update local DB to match model, save model snapshot for future diffs
multi MAIN(
"migration",
"update",
Str :$model!,
Str :$require = $model,
Str :$driver!,
*%pars
) {
$GLOBAL::RED-DB = database($driver, |%pars);
migration-update :$model, :$require, :$driver, |%pars;
}

#| Rollback the last applied migration on the local DB
multi MAIN(
"migration",
"downgrade",
Str :$driver!,
*%pars
) {
$GLOBAL::RED-DB = database($driver, |%pars);
migration-downgrade :$driver, |%pars;
}

#| Generate SQL migration files (up.sql + down.sql) from model snapshots
multi MAIN(
"migration",
"prepare",
Str :$model!,
Str :$require = $model,
Str :$driver!,
*%pars
) {
$GLOBAL::RED-DB = database($driver, |%pars);
migration-prepare :$model, :$require, :$driver, |%pars;
}

#| Apply pending SQL migrations to the target database
multi MAIN(
"migration",
"apply",
Str :$driver!,
*%pars
) {
$GLOBAL::RED-DB = database($driver, |%pars);
migration-apply :$driver, |%pars;
}

sub dyn-lib(@libs) {
qq[use lib "{ $_ }"].EVAL for @libs
qq[use lib "{ $_ }"].EVAL for @libs

@FCO FCO Jun 23, 2026

Copy link
Copy Markdown
Owner

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

These days, would it be better to use .AST.EVAL?

}
Loading
Loading