Add pure phase out test case for `calculate_company_aggregate_alignment_tms()`

[jacobvjk]

relates to #213

We currently only test a case of a sector with build out and phase out technologies when testing calculate_company_aggregate_alignment_tms() in test-calculate_company_alignment_metric.R, see

pacta.multi.loanbook/tests/testthat/test-calculate_company_alignment_metric.R

Line 259 in 7068b6f

# calculate_company_aggregate_alignment_tms----

An additional case should be added for a sector that only has phase out technologies/fuels, as the TMSR case must be able to handle both